' Salvar el contenido de un TextBox a un fichero en disco:
Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
'*******
'¡¡CUIDADO!!, el uso de OutPut, sobreescribe
'el contenido del fichero existente.
'*******
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Close #canalLibre
End Sub