Private Sub Command1_Click()
Dim F As Long
Dim Stroka As String
'On Error GoTo Errors
CommonDialog1.CancelError = True
Text1.Text = ""
CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt)|*.txt"
CommonDialog1.DialogTitle = "Îòêðûòü ôàéë"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F) ' End of file
Line Input #F, Stroka
Text1.Text = Text1.Text & vbCrLf & Stroka
Loop
'Close #F
End Sub
'Errors:
'If Err.Number = cdlCancel Then
'Exit Sub
'Else
'MsgBox Err.Description
'End If
'End Sub


Private Sub Command4_Click()
'F = FreeFile
'On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt
CommonDialog1.DialogTitle = "Сохранить текстовой файл как..."
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #F
Close #F
Exit Sub
'Cansel1:
'If Err.Number = cdlCancel Then
'Exit Sub
'Else
'MsgBox Err.Description
'End If
'End Sub

End Sub

'F = FreeFile
'On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt)|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt
CommonDialog1.DialogTitle = "Ñîõðàíèòü òåêñòîâîé ôàéë êàê..."
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #F
Print #F, Text1.Text
Close #F
Exit Sub
'Cansel1:
'If Err.Number = cdlCancel Then
'Exit Sub
'Else
'MsgBox Err.Description
'End If
'End Sub