Dim strOpen As String
   CommonDialog1.ShowOpen
   strOpen = CommonDialog1.FileName
   Text1.LoadFile strOpen
   Text1.LoadFile strClose

 Dim strNewFile As String
   CommonDialog1.ShowSave
   strNewFile = CommonDialog1.FileName
   Text1.SaveFile strNewFile

    Dim foo As Integer
    
    foo = FreeFile
    Open "C:\Archivo.txt" For Input As #foo
        Text1.Text = Input(LOF(foo), #foo)
    Close #foo

    Dim foo As Integer
    
    foo = FreeFile
    Open "C:\Archivo.txt" For Output As #foo
        Print #foo, Text1.Text
    Close #foo