Private Sub Command1_Click()
Dim m1 As String, m2 As String, sum As String ,t As String
Dim n1 As Integer, n2 As Integer, k As Integer, x As Integer
m1 = Text1.Text:m2 = Text2.Text
If Then t = m1: m1 = m2: m2 = t
x = Len(m1) - Len(m2)
Do While x > 0
m2 = "0" + m2
x = x - 1
Loop
n = Len(m1): sum = "": k = 0
Do While n > 0
n1 = Val(Mid(m1, n, 1))
n2 = Val(Mid(m2, n, 1))
sum = Str((n1 + n2 + k) Mod 2) + sum
n = n - 1
Loop
If k <> 0 Then sum = Str(k) + sum
Label4.Caption = sum
End Sub