el ejemplo es algo asi..
sFicDatos es la direccion o url, espero te sirva..
Código:
Dim nCanal As Integer
nCanal = FreeFile
Open sFicDatos For Binary As #nCanal
nlen = LOF(nCanal)
Texto$ = Space$(nlen)
Get #nCanal, , Texto$
msgbox RTrim$(Texto$)
Close #nCanal