MiX0N,

‘ открыть

Dim strfilename As String
Dim strfilecontent As String
Dim nfreefile As Integer
Dim buff As String
nfreefile = FreeFile
CommonDialog1.ShowOpen
strfilename = CommonDialog1.FileName
If strfilename <> "" Then
Open strfilename For Input As nfreefile
Line Input #1, buff
Text1.Text = buff
Close #1
Close
End If

‘сохранить

nfreefile = FreeFile
CommonDialog1.ShowSave
strfilename = CommonDialog1.FileName
If strfilename <> "" Then
Open strfilename For Output As nfreefile
Print #1, Text1
Close #1
Close
End If