Archivos de texto

Te paso una rutinas fáciles para leer y guardar textos en un archivo,
Primero declara estas variables:
Dim Archivo as String
Dim Datos as String
ahora para guardar los caption de los botones pone:
Archivo = "nombre del archivo que quieres generar"
Open Archivo For Output as #1
Print #1, Command1.Caption
Print #1, Command2.Caption
'esto lo repites para cada boton que quieras
Close #1
ahora para leer haces algo parecido:
Open Archvio For Input as #1
Input #1, Command1.Caption
Input #1, Command2.Caption
'esto tambien lo repites para cada boton
Close #1
Fíjate que los textos te van a quedar uno debajo del otro, el comando Print hace eso, y al leer, el comano Input te va lleyendo linea a linea.

Usando el código de leer me sale el error de compilación
Es necesaria una variable, no se puede asignar a esta expresión y me subrata caption en Input #1, Command1.Caption