leer archivo hexadecimal en VB6

[pkj]

Aquí te dejo un ejemplo. Para probarlo crea un form con 3 textbox y 1 commandbutton.

Se leerá un fichero hexadecimal "C:\hexa.hex"

En el Text1 se carga el texto en hexadecimal
En el Text2 se carga en decimal
En el Text3 se carga en ascii

Código vb:

Private Sub Command1_Click()
  Dim NumFichero As Integer
  Dim NombreArchivo As String
  Dim Linea As String
  Dim F As Long
  NombreArchivo = "C:\hexa.hex"
  NumFichero = FreeFile
  Open NombreArchivo For Input As #NumFichero
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Do Until EOF(NumFichero)
    Line Input #NumFichero, Linea
    Text1.Text = Text1.Text & Linea & vbCrLf
    For F = 1 To Len(Linea) Step 2
      Text2.Text = Text2.Text & CDec("&H" & Mid$(Linea, F, 2))
      Text3.Text = Text3.Text & Chr$("&H" & Mid$(Linea, F, 2))
    Next F
  Loop
  Close NumFichero
End Sub
 

Saludos