Esto a mi me funciona, espero que sea lo que buscas
'Este comando Guarda el contenido de una caja de texto el un fichero
Private Sub Command1()
Open "path\nombreFichero.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
'Este comando lee el fichero y lo muestra en una caja de texto
Private Sub Command2()
Open "path\nombreFichero.txt" For Input As #1
Text1.Text = Input$(LOF(1), #1)
Close #1
End Sub