No es para nada dificil , aca te dejo 3 formas que conosco de crear un txt , elegi la que mas te guste
1) Con un RichTextbox , en lugar de un textbox
Private Sub Command1_Click()
RichTextBox1.SaveFile App.Path & "\Prueba.txt", 1
End Sub
2)Creandolo con Open
Private Sub Command2_Click()
Open App.Path & "\Prueba2.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
3)O con FileSystemObject (tenes que agregar la referencia de Microsoft Scripting Runtime antes , ok?
Private Sub Command3_Click()
Dim fso As FileSystemObject
Dim archivo As TextStream
Set fso = New FileSystemObject
Set archivo = fso.CreateTextFile(App.Path & "\Prueba3.txt", True)
archivo.WriteLine Text1.Text
archivo.Close
Set archivo = Nothing
Set fso = Nothing
End Sub
-------------------------------------
ESpero te haya servido !! suerte