Перевод с десятичной системы счисления в двоичную и наоборот - VB

Public Function DecToBin(ByVal bByte As Byte) As String
    Dim i As Integer
    For i = 0 To 7
       If bByte And 2 ^ i Then
         DecToBin = 1 & DecToBin
       Else
         DecToBin = 0 & DecToBin
       End If
     Next i
  End Function
Public Function Bin2Dec(bin) As Integer
Dim n As Integer
Dim dk As Integer
    dec = 0
    i = 0
    Do While bin > 0
       dec = dec + (bin Mod 10) * 2 ^ i
       bin = bin \ 10
       i = i + 1
    Loop
    Bin2Dec = dec
End Function
 
Private Sub Command1_Click()
MsgBox DecToBin(99)
End Sub
 
Private Sub Command2_Click()
MsgBox Bin2Dec("01100011")
End Sub