Utilizá el ScriptingObject. Para utilizarlo tenés que agregar en las referencias (menú proyecto\referencias) al Microsoft Scripting Runtime, Buscalo en la lista. Si no está utilizá el botón examinar y en System o System32 buscá scrrun.dll (viene con Internet explorer 5 o superior, es opcional en IE 4).
Option Explicit
DefLng A-Z
Private Sub mnuAbrirArchivo_Click()
'Objeto scripting
Dim fso As Scripting.FileSystemObject, TxtStm As
Scripting.TextStream , s as string
Set fso = New FileSystemObject
'Abre el archivo de texto, si no existe lo crea
Set TxtStm = fso.OpenTextFile("C:\...\x.txt",
ForReading, True)
'Lee el archivo desde la primera a la última línea
Do
s=s & vbcrlf & TxtStm.ReadLine
Loop Until (TxtStm.AtEndOfStream) 'AtEndOfStream
es el final del archivo
Salida:
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing
txtDatos.text=s
If Err.Number < 0 Then MsgBox Err.Description,
vbInformation, App.Title & " - Error de lectura"
End Sub
