' 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