Private Sub Form_Load()
Set fs = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Command1_Click()
On Error Resume Next
Set f = fs.OpenTextFile(App.Path & "\Datos.txt", 8, 0)
If Err = 53 Then Set f = fs.CreateTextFile(App.Path & "\Datos.txt")
f.WriteLine Text1.Text & " " & Text2.Text
On Error GoTo 0
End Sub
En la Sección Código Fuente tienes un ejemplo de manejo de archivos de texto, está en: http://lawebdelprogramador.com/codigo/enlace.php?idp=17&id=93&texto=Visual+Basic