'Array que contendrá los bytes del archivo es decir los datos
Dim Data() As Byte
Dim Hex_Temporal As String
'Variable Para el tamaño del archivo ( luego se usa para el Redim )
Dim fLen As Long
'Abrimos el archivo en modo binario de solo lectura (Binary Lock Read)
Open Text5.Text For Binary Lock Read As 1
'Redimiensionamos el array al tamaño del archivo
fLen = FileLen(Text5.Text)
ReDim Data(fLen) As Byte
'Leemos el archivo entero y lo almacenamos en el array
Get #1, , Data
Close 1
'los mostramos en el text6.text
For i = 0 To fLen - 1 Step 1
Hex_Temporal = Hex$(Data(i))
'ojo!! jii, por si tiene menos de dos caracteres le ponemos un cerito
If Len(Hex_Temporal) < 2 Then
Hex_Temporal = "0" & Hex_Temporal
End If
Text6.Text = Text6.Text & Hex_Temporal
Next