Visual Basic - Exportar lineas a un archivo de texto

Necesito exportar el contenido de una caja de texto (textbox) a un archivo de texto.

Gracias

Buenas.
'
Dim Narchivo As Integer
Narchivo = FreeFile ' guardamos numero archivo libre
Open "Archivo.txt" For Append As Narchivo ' Abrimos el archivo en modo añadir y no existe lo crea
Print #Narchivo, Text1 ' grava el texto
Close Narchivo ' cierra el archivo

' Saludos