Pues yo he usado este code mira:
Private Sub Command1_Click()
Dim file As String
Dim Msg As String
Dim fileno As Integer
Dim i As Integer
Dim t(10000000) As Byte
file = "C:\Archivo.txt"
fileno = FreeFile()
Open file For Binary As fileno
For i = 1 To FileLen(file)
Get fileno, i, t(i)
Msg = Msg + Chr(t(i))
Next
Close fileno
Text1.Text = Msg
End Sub
Code de: ranefi
Pruevalo a ver este si Funciona, yo lo he provado ya
Saludos
Slipknot xD