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

Option Explicit
Dim RUTA As String

Private Sub Command1_Click()
 Dim Archivo As String
    Open RUTA For Binary As #201
Do
Input #201, Archivo
Loop Until EOF(201) = True
Close #201
        Text1.Text = Archivo
End Sub

Private Sub Form_Load()
RUTA = "ejemplo.DLL"
End Sub