Dim Intru As Object
Dim Archivo As Object
Intru = CreateObject("Scripting.FileSystemObject")
Archivo = Intru.CreateTextFile("la ruta de tu carpeta creada en tu pc\nombre que llevara tu archivo.txt", True)
'pasamos los datos de los texbox
Archivo.WriteLine(txttexto.Text)
Archivo.Close()