__________________________
If dist < 0 Then
t = b1: b1 = b2: b2 = t: dist = -dist
End If
For i = 1 To dist
b2 = "0" + b2
Next i
jw = 0
For i = Len(b1) To 1 Step -1
x = Val(Mid(b1, i, 1)) + Val(Mid(b2, i, 1)) + jw
__________________________
ans = Str(x Mod 2) + ans
Next i
If ___________________
Text3.Text = ans
End Sub