Visual Basic - Como gravar contenido de textbox en archivo de tex

La pregunta es: Tengo 1 formuilario con un textbox, y un boton de comando.
como puedo hacer para que al darle al boton lo que hay en el textbox se grave en c:/archivo.txt
Muchas Gracias

Fijate con esto:

StringToFile Text1.Text,"MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long

hlngFile = FreeFile

Open FileName For Binary Access Write As hlngFile

Put hlngFile, , StringText

Close hlngFile

StringToFile = FileLen(FileName)

End Function

Dim cadena as string

'en el evento click del boton escribi esto

Open "c:\archivo.txt" for append as #1 ' Abre (o crea) el archivo
cadena = text1.text 'carga el texto a la variable "cadena"
print #1, cadena ' Graba la variable al archivo
close #1 Cierra el archivo