If you want to do it digit by digit you could do something like this

In a 'normal' module:

'***********************************************
Function hextobin(byval hexa as string)

Select Case hexa

Case "0": hextobin = "0000"
Case "1": hextobin = "0001"
Case "2": hextobin = "0010"
Case "3": hextobin = "0011"
'continue until last hexa digit....
'
'
case "F": hextobin = "1111"
End Select

End function

'***********************************************
"Aimran" escribió en el mensaje
...

Rather than rolling your own, use Excel's HEX2BIN() function. You must have
the Analysis Toolpak add-in checked to make this available


"Hernandez, Roberto" wrote:

If you want to do it digit by digit you could do something like this

In a 'normal' module:

'***********************************************
Function hextobin(byval hexa as string)

Select Case hexa

Case "0": hextobin = "0000"
Case "1": hextobin = "0001"
Case "2": hextobin = "0010"
Case "3": hextobin = "0011"
'continue until last hexa digit....
'
'
case "F": hextobin = "1111"
End Select

End function

'***********************************************
"Aimran" escribió en el mensaje
...

Thanks Duke!
I know the Hex2bin function...
I was actually trying to 'spread' some example to use the powerful VBA
capabilities.


"Duke Carey" escribió en el mensaje
...
Rather than rolling your own, use Excel's HEX2BIN() function. You must
have
the Analysis Toolpak add-in checked to make this available


"Hernandez, Roberto" wrote:

If you want to do it digit by digit you could do something like this

In a 'normal' module:

'***********************************************
Function hextobin(byval hexa as string)

Select Case hexa

Case "0": hextobin = "0000"
Case "1": hextobin = "0001"
Case "2": hextobin = "0010"
Case "3": hextobin = "0011"
'continue until last hexa digit....
'
'
case "F": hextobin = "1111"
End Select

End function

'***********************************************
"Aimran" escribió en el mensaje
...