Visual Basic - Como crear un archivos de texto en VB 6.0

Hola! Alguien sabe como crear un txt en VB 6.0? y luego guardar en ese archivo el contenido de una variable.
Gracias!!

OPEN "C:\RUTA\ARCHIVO.TXT" FROM OUTPUT AS #1
PRINT #1, VARIABLE
CLOSE #1

Si quieres que te añada cosas cambia OUTPUT por APPEND y si quieres abrirlo para leer los datos cambia OUTPUT por INPUT y PRINT por INPUT o LINE INPUT

Saludos

Excelente funciona muy bien solo que es for en lugar de FROM y en minúsculas, me funciono así
en un botón

Dim variable As String
variable = "2545, 2345"
Open "C:\Users\Fruto\Desktop\cosa.txt" For Append As #1
Print #1, variable
Close #1

La rutina es así

Dim Cadena

Cadena = "Texto a enviar"

Open "Archivo.txt" For Output As #1
Print #10, Cadena
Close #1

Si te refieres a abrir y guardar un archivo de texto en un TextBox fijate con esto:

Text1.Text=FileToString("MiArchivo.txt")

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

End Function

Y para el proceso inverso:

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

si pero estas funciones como las aplico si quiero darle a un botón esta función