Crear un ".txt"

[VisualGuallabo]

Aqui te pongo las Instrucciones. le puedes poner a los archivos la estención que tu quieras.

Instrucciones: Open; Print#; Write#; Close

Sintaxis:
Open "Camino y nombre y extensión del archivo a crear" For Acción (Leer: Input; Agregar: Append; Grabar: Output) As #1
Print #1, "Contenido del archivo" 'Se utiliza Print# al igual que Write#
Close #1

A continuación mostramos ejemplos:

Crear archivo
Open "C:\NewFile\Do.MIO" For Output as #1
Print#1, "Línea número uno"
Close#1

Agregar datos a un archivo ya creado
Open "C:\NewFile\Do.MIO" For Append as #1
Write#1, Línea última
Close#1

Para Leer datos
Dim Z As String
Open "C:\NewFile\Do.MIO" For Input as #1
Line Input #1, Z
Close#1
Label1.Caption= Z

Para leer varias líneas debe utilizar el siguiente método

Open "c:\NewFile\Do.MIO" For Input As #1
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
On Error Resume Next ' Para evitar errores
For Q = 0 To EOF(1) ' este ciclo Repite la lectura hasta el final del archivo
Line Input #1, Z ' Guarda lo leído en una variable.
List1.AddItem (Z) ' Agrega lo leído en un Listbox
Next Q
Loop
Close #1 ' Cierra el archivo.