Trucos de Visual Basic 6.0 Ficheros. Guardar un textbox a un fichero

Private Sub Command1_Click()
Dim numeroFichero As Integer
numeroFichero = FreeFile
'Abrimos el fichero
Open "C:\Trucos.txt" For Output As #numeroFichero

Print #numeroFichero, Text1
Close #numeroFichero
End Sub