Necesitamos
2 TextBox, que uno se llame text1 y el otro ruta.
1 CommandButton y listo.
Private sub Command1_click()
open trim$(ruta) for binary as #1
dim espaciotxt as string
expaciotxt = space(lof(1))
get #1,espaciotxt
close #1
text1.text = espaciotxt
End Sub
Private sub Form_Load()
text1.Multiline = true
End sub
El sistema trim$ que pongo es para que el valor de la ruta sea el valor del ruta.text
Es muy sencillo.
