Visual Basic - Conversión Hex-Binario

Hola. Me gustaría enterarme si alguien sabe de cómo convertir un valor eh hexadecimal a bits(es decir una ristra de 0 y 1).

Usa la siguiente función.

Public Function HexToBin(ByVal enHexa As String) As String
Dim Numero As Long

Numero = CLng("&H" & enHexa)
HexToBin = ""
While Numero > 0
HexToBin = IIf(Numero Mod 2, "1", "0") & HexToBin
Numero = Numero \ 2
Wend

End Function