Как перевести из шестнадцатиричной системы счисления в двоичную систему счисления

Option Explicit
 
Function LngToStr(ByVal Value As Long, Baza As Byte) As String
Dim M As Byte
Do
  M = Value Mod Baza + 48
  If M > 57 Then M = M + 7
  Value = Value \ Baza
  LngToStr = Chr$(M) & LngToStr
Loop While Value > 0
End Function
 
Function StrToLng(Value As String, Baza As Byte) As Long
Dim M As Byte, I As Byte
For I = 1 To Len(Value)
  M = Asc(Mid$(Value, I, 1)) - 48
  If M > 9 Then M = M - 7
  StrToLng = StrToLng * Baza + M
Next I
End Function
 
Sub Example() 'перевод из двоичной в 16-ричную и обратно
Debug.Print LngToStr(StrToLng("10011001", 2), 16)
Debug.Print LngToStr(StrToLng("ABCDEF", 16), 2)
End Sub

Private Sub Form_Load()
  MsgBox "В двоичной системе счисления палучицца" & vbCrLf & _
  LngToStr(StrToLng(InputBox("Введите число в шестнадцатиричной системе счисления"), _
  16), 2), vbInformation
  End
End Sub
Function LngToStr(ByVal Value As Long, Baza As Byte) As String
Dim M As Byte
Do
  M = Value Mod Baza + 48
  If M > 57 Then M = M + 7
  Value = Value \ Baza
  LngToStr = Chr$(M) & LngToStr
Loop While Value > 0
End Function
 
Function StrToLng(Value As String, Baza As Byte) As Long
Dim M As Byte, I As Byte
For I = 1 To Len(Value)
  M = Asc(Mid$(Value, I, 1)) - 48
  If M > 9 Then M = M - 7
  StrToLng = StrToLng * Baza + M
Next I
End Function