private sub command1_click()
dim datos,linea,ruta as string
ruta="c:\archivo.txt"
open ruta for append as 1
while not eof(1)
line input #1,linea
datos=datos & linea
linea=""
wend
close 1
end sub
Con esto lo que hago es abrir el archivo y leer lo linea a linea, y almacenarlo en la variable datos.