Visual Basic - Numeros Binarios

Hola a todos.
bueno, esto es algo urgente, por que es una asignacion que tengo que terminar y lo unico que me falta es esto que me tiene de cabezas.
la cosa es que tengo que sumar dos numeros binarios (el usuario pone 2 numeros binarios en la interface, y luego tiene q salir el resultado), pero no tengo idea de como hacerlo, no se si habra alguna formula en especifica, o alguna logica,
de verdad se les agradeceria que me ayudaran ha resolver este pequeno problema.

gracias de antemano,

saludos.

numero1$ = Text1.Text
numero2$ = Text2.Text
Dim x As Long, y As Long, cifra As Integer
Stop
For i = 1 To Len(numero1$)
cifra = Val(Mid$(numero1$, i, 1))
x = x + cifra * 2 ^ (Len(numero1$) - i)
Next
For i = 1 To Len(numero2$)
cifra = Val(Mid$(numero2$, i, 1))
y = y + cifra * 2 ^ (Len(numero2$) - i)
Next
Dim binario As String, numero As Long
numero = x + y
resto = (numero) Mod 2
cociente = (numero) \ 2
While cociente > 1
binario = resto & binario
numero = cociente
resto = (numero) Mod 2
cociente = (numero) \ 2
Wend
binario = cociente & resto & binario

numero1$ = Text1.Text
numero2$ = Text2.Text
Dim x As Long, y As Long, cifra As Integer
For i = 1 To Len(numero1$)
cifra = Val(Mid$(numero1$, i, 1))
x = x + cifra * 2 ^ (Len(numero1$) - i)
Next
For i = 1 To Len(numero2$)
cifra = Val(Mid$(numero2$, i, 1))
y = y + cifra * 2 ^ (Len(numero2$) - i)
Next
Dim binario As String, numero As Long
numero = x + y
resto = (numero) Mod 2
cociente = (numero) \ 2
While cociente > 1
binario = resto & binario
numero = cociente
resto = (numero) Mod 2
cociente = (numero) \ 2
Wend
binario = cociente & resto & binario