Problemas de programación de VB al guardar y abrir archivos

Atenuar a$, b$

Abrir "text.txt" para entrada como #1 'Abre el archivo.

Do While Not EOF(1) ' Bucle hasta el final del archivo.

Entrada de línea #1, a 'Leer una línea de datos y asignarla a una variable.

b=b amp; a amp; vbcrlf ' Acumular y agregar a la variable b

Bucle

Cerrar #1 'Cerrar el archivo.

Ahora todo el contenido ha sido leído y puesto en la variable b. Puede usarse o mostrarse.