RE:Conversion de binarios a enteros
Entiendo que quieres los números binarios como cadenas de texto "1110".
Public Function BinADec(str As String) As Integer
Dim i As Integer, sal As Integer, ln As String
ln = Len(str)
For i = 1 To ln
sal = sal + Val(Mid(str, ln - i + 1, 1)) * 2 ^ (i - 1)
Next
BinADec = sal
End Function
Public Function DecABin(num As Integer) As String
Dim i As Integer
Dim s As String
i = num
Do While i > 0
s = (i Mod 2) & s
i = i \ 2
Loop
DecABin = s
End Function
Public Function SumaBin(str As String, str2 As String) As String
SumaBin = DecABin(BinADec(str) + BinADec(str2))
End Function