Programación VB (creación de archivos de texto)

Un cuadro de texto (texto1) y un botón (comando1) generan un archivo de texto c:\1.txt después de hacer clic.

Private Sub Command1_Click()

dim fn as integer

fn=freefile 'Obtener el número de archivo disponible

open "c: \1.txt" para generar como fn

print #fn , text1.text 'Envía el contenido de text1 al archivo

close fn 'Cerrar el archivo

Fin Sub