El code funciona, porq se rellena el text, pero se rellena de espacios! no hay ni una sola letra, este es el code q puesto:
un saludo
Código [Seleccionar]
Option Explicit
Dim RUTA As String
Private Sub Command1_Click()
Dim Archivo As String
Open RUTA For Binary As #1
Archivo = Space(LOF(1))
Get #1, , RUTA
Close #1
Text1.Text = Archivo
End Sub
Private Sub Form_Load()
RUTA = "ejemplo.DLL"
End Sub
un saludo