Io diverso tempo fa ho fatto una routine che converte un numero binario in un numero decimale, guarda se ti può servire.

codice:
Sub BinDec(NumeroB As String, NumeroD As Long)
Dim Indice As Integer
    NumeroBin = NumeroB
    Indice = Len(Trim(NumeroBin))
    X = 1
    NumeroDec = 0
    Indi = Indice
    Do Until X > Indi
        NumeroDec = NumeroDec + Val(Mid(NumeroBin, X, 1)) * 2 ^ (Indice - 1)
        Indice = Indice - 1
        X = X + 1
    Loop
    NumeroD = NumeroDec
End Sub
Ciao