Bien en tu formulario en las propiedades del textbox, existe MultiLine lo haces a True y ScrollBars en Vertical, y despues pones un command bitton y dentro del eventos clic va el siguiente codigo
Private Sub cmdEjecuta_Click()
Const RutaArchivoConexion = "C:\Archivo.Txt"
Dim ArchivoTxt As Variant, F As Variant
Set ArchivoTxt = CreateObject("Scripting.FileSystemObject")
Set F = ArchivoTxt.CreateTextFile(RutaArchivoConexion, True)
F.Write Text1
F.Close
MsgBox "Listo", vbInformation
Text1 = ""
Text1.SetFocus
End Sub
aqui lo unico que hace es definir un ruta donde se va almacenar tu archivo de texto y pasar lo escrito del textbox al arhcivo de texto.
alguna duda puedes escribirme a mi correo. saludos.