'Exempel kod
Private Sub Form_Load()
Dim MyValue As Long

MyValue = Bin2Dec("10100100")

Debug.Print MyValue 'resluterar i talet 164 som är "10100100" binärt
End Sub