convertire un numero in bit

[Mabi]

Mi sono dimenticato la funzione inversa:

Private Function BinToDec(NumeroBin As String) As Double
Dim Cont As Integer
Dim CifraN As Integer

For Cont = Len(NumeroBin) To 1 Step -1
  CifraN = CInt(Mid(NumeroBin, Cont, 1))
  BinToDec = BinToDec + CifraN * 2 ^ (Len(NumeroBin) - Cont)
Next Cont
End Function