Como Realizar Una Resta De Dos Numeros Binarios???

[tone02323]

HOLA TENGO UN PROBLEMA DE ALGORISMO NESECITO HACER UN ALGORITMO QUE ME PERMIRA REALIZAR RESTAS DE DOS NUMEROS BINARIOS

LA QUE ESTOY INTENTANDO HACER ES ESTO:

Dim num4 As String
Dim num5 As String
Dim num6 As String
Dim complemento As String
Dim i As Integer

num4 = txt4.Text
num5 = txt5.Text

For i = 1 To Len(num4)
If Mid(num4, i, 1) = "0" Then


EL PROBLEMA ESTA AQUI

ElseIf Mid(num4, i, 1) = "1" Then


Y AQUI
End If
Next
End Sub
OSE LO QUE ME ESTA FALTANDO ES ESTE ALGORISMO EL COMO HACER LA COMPARACION DE CADA NUMERO Y QUE ARRASTRE EL NUMERO DE ACARREO EN LA VARIABLE COMPLEMENTO