Как создать Программа-калькулятор для чисел в двоичной системе счисления

Option Explicit
 
Sub main()
   Dim Sum1$, Sum2$, Itog$
   Sum1 = InputBox("Введите первое двоичное число:")
   Sum2 = InputBox("Введите второе двоичное число:")
   If Sum1 = "0" And Sum2 = "0" Then Itog = "0"
   If Sum1 = "0" And Sum2 = "1" Then Itog = "1"
   If Sum1 = "1" And Sum2 = "0" Then Itog = "1"
   If Sum1 = "1" And Sum2 = "1" Then Itog = "10"
   MsgBox Itog
End Sub

Option Explicit
 
 
Dim tx As MSForms.TextBox, WithEvents cb As MSForms.CommandButton, OnMode&
 
 
Private Sub cb_Click()
    Static s$, a$(), i&, j&
    Select Case Mid$(cb.Name, 3)
    Case 2 To 5
        If tx.Tag = "" Then tx.Tag = 1
        If s = "" Then s = cb.Caption: tx.Text = tx.Text & s
    Case 6
        a = Split(tx.Text, s)
        If UBound(a) = 0 Then tx.Text = a(0): s = "": Exit Sub
        If UBound(a) = 1 Then If a(1) = "" Then tx.Text = a(0): s = "": Exit Sub
        '
        '----------------------------Варианты реализации кода
        '
        'Office 2007 и выше
        'tx.Text = WorksheetFunction.Dec2Bin(Application.Evaluate(WorksheetFunction.Bin2Dec(a(0)) & s & WorksheetFunction.Bin2Dec(a(1))))
        '
        '
        'Office 2003 и выше
        ReDim Preserve a(3): a(2) = 0: a(3) = 0
        
        'Получаю 2 десятичных
        For i = 0 To 1: For j = 1 To Len(a(i)): a(i + 2) = a(i + 2) * 2 + Mid$(a(i), j, 1): Next j, i
        
        'Получаю 10-й результат вычисления
        j = Application.Evaluate(a(2) & s & a(3)): s = Space(32)
        
        'Перевожу результат обратно в 2-чный вид
        For i = 32 To 1 Step -1: Mid$(s, i, 1) = j Mod 2: j = j \ 2: Do While j = 0: Exit For: Exit Do: Loop: Next
            
        'На табло
        tx.Text = LTrim(s): s = ""
        '
        '
        '
    Case 7:  s = "": tx.Tag = "": tx.Text = 0
    Case Else
        With tx
            If .Tag = "" Then .Tag = 1: tx.Text = cb.Caption Else tx.Text = tx.Text & cb.Caption
        End With
    End Select
End Sub
 
Private Sub UserForm_Activate()
    On Error Resume Next
    While OnMode
        DoEvents
        Set tx = ActiveControl
        Set cb = ActiveControl
    Wend
End Sub
 
Private Sub UserForm_Initialize()
    Const rr = 21: Dim i&, v
 
    For Each v In Split("0 1 + - * / = <")
        With Controls.Add("Forms.CommandButton.1", "cb" & i, 1)
            .Move i * rr + 7, rr + 7, rr, rr
            .Caption = v
        End With
        i = i + 1
    Next
    Set tx = Controls.Add("Forms.TextBox.1", "tx", 1): With tx
        .Move 7, 7, rr * i
        .Locked = 1
        .Text = 0
    End With
    
    Caption = "Двоичный калькулятор"
    Move Left, Top, rr * (i + 1), rr * 4
    OnMode = 1
End Sub
 
Private Sub cb_DblClick(ByVal Cancel As MSForms.ReturnBoolean): cb_Click: End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer): OnMode = 0: End Sub