Como Realizar Una Resta De Dos Numeros Binarios???

[David]

Escribí una función para sumar dos binarios, hice algunas pruebas y funciona. Es este:

Código:

Function Sumar(ByVal Num1 As String, ByVal Num2 As String) As String
If Len(Num1) > Len(Num2) Then Num2 = Right(String(Len(Num1), "0") & Num2, Len(Num1))
If Len(Num2) > Len(Num1) Then Num1 = Right(String(Len(Num2), "0") & Num1, Len(Num2))
Dim Looping As Integer
Dim Char1 As Byte
Dim Char2 As Byte
Dim Rest As Byte
Dim Result As String
For Looping = Len(Num1) To 1 Step -1
    Char1 = Val(Mid(Num1, Looping, 1))
    Char2 = Val(Mid(Num2, Looping, 1))
    If Char1 + Char2 + Rest > 1 Then
        Result = CStr((Char1 + Char2 + Rest) Mod 2) & Result
        Rest = 1
    Else
        Result = CStr(Char1 + Char2 + Rest) & Result
        Rest = 0
    End If
Next Looping
If Rest = 1 Then Result = "1" & Result
Sumar = Result
End Function

Espero que te sirva.
Saludos