Commondialog1.ShowOpen
fullname = Commondialog1.filename
filename = Commondialog1.FileTitle
If filename <> "" Then
Debug.Print Commondialog1.filename
Open fullname For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
Form1.Caption = filename
End If
Para guardar suelo usar una funcion, pero con el commondialog supongo que sera:
Commondialog1.ShowSave
Commondialog1.DefaultExt = "txt"
fullname = Commondialog1.filename
filename = Commondialog1.FileTitle
If fullname <> "" Then
Open fullname For Output As #1
Print #1, Text1.Text
Close #1
Form1.Caption = filename
End If
Salu2