RE:Como covertir datos hexadecimales a binarios
Yo lo haria directo tomando cada valor Hexa y pasandolo a binario ej:
miHexadecimal = "A1"
miBinario = ""
For i = 1 To Len(miHexadecimal)
Select Case Mid(miHexadecimal, i, 1)
Case "0"
miBinario = miBinario & "0000"
Case "1"
miBinario = miBinario & "0001"
Case "2"
miBinario = miBinario & "0010"
Case "3"
miBinario = miBinario & "0011"
Case "4"
miBinario = miBinario & "0100"
Case "5"
miBinario = miBinario & "0101"
Case "6"
miBinario = miBinario & "0110"
Case "7"
miBinario = miBinario & "0111"
Case "8"
miBinario = miBinario & "1000"
Case "9"
miBinario = miBinario & "1001"
Case "A"
miBinario = miBinario & "1010"
Case "B"
miBinario = miBinario & "1011"
Case "C"
miBinario = miBinario & "1100"
Case "D"
miBinario = miBinario & "1101"
Case "E"
miBinario = miBinario & "1110"
Case "F"
miBinario = miBinario & "1111"
End Select
Next i