Сложить два двоичных числа и проверить результат

Private Sub CommandButton1_Click()
n = Int(2 * Rnd)
m = Int(2 * Rnd)
v = Int(2 * Rnd)
w = Int(2 * Rnd)
TextBox1.Text = Str(n) + Str(m) + Str(v) + Str(w)
End Sub
 
Private Sub CommandButton2_Click()
n = Int(2 * Rnd)
m = Int(2 * Rnd)
v = Int(2 * Rnd)
w = Int(2 * Rnd)
TextBox2.Text = Str(n) + Str(m) + Str(v) + Str(w)
End Sub
 
Private Sub CommandButton3_Click()
TextBox1.Text = n * 2 ^ 3 + m * 2 ^ 2 + v * 2 ^ 1 + w * 2 ^ 0
TextBox2.Text = n * 2 ^ 3 + m * 2 ^ 2 + v * 2 ^ 1 + w * 2 ^ 0
Z = Val(TextBox1.Text) + Val(TextBox2.Text)
n = Val(Z)
a = " "
While n <> 0
d = n Mod 2
k = n \ 2
a = Str(d) + a
Wend
If TextBox3.Text = Val(a) Then TextBox4.Text = "pravilno" Else TextBox4.Text = "ne pravilno"
End Sub

Option Explicit
Dim n1 As Long, n2 As Long
 
Private Sub CommandButton1_Click()
  n1 = Int(16 * Rnd)
  TextBox1.Text = Bin(n1)
  TextBox3.Text = ""
  TextBox4.Text = ""
End Sub
 
Private Sub CommandButton2_Click()
  n2 = Int(16 * Rnd)
  TextBox2.Text = Bin(n2)
  TextBox3.Text = ""
  TextBox4.Text = ""
End Sub
 
Private Sub CommandButton3_Click()
  If Val(TextBox3.Text) = Val(Bin(n1 + n2)) Then TextBox4.Text = "pravilno" Else TextBox4.Text = "ne pravilno"
End Sub
 
Function Bin(ByVal n As Long) As String
  While n
    Bin = n Mod 2 & Bin
    n = n \ 2
  Wend
  If Bin = "" Then Bin = "0"
End Function
 
Private Sub UserForm_Initialize()
  Randomize
  TextBox1.TextAlign = fmTextAlignRight 'можно задать в конструкторе
  TextBox2.TextAlign = fmTextAlignRight
  TextBox3.TextAlign = fmTextAlignRight
End Sub