Private Sub Command1_Click()
MsgBox hextoBIN("AB12")
End Sub
Function hextoBIN(ByVal X As String) As String
Const Bins = "0000000100100011010001010110011110001001101010111100110111101111"
Dim i As Integer, s As String
s = ""
For i = 1 To Len(X)
s = s + Mid(Bins, (Val("&h" + Mid(X, i, 1)) * 4 + 1), 4)
Next
hextoBIN = Format(s, "0")
End Function