Funkcja BIN2DEC jako makro

Funkcja przekształcająca podany ciąg zawierający liczby binarne (0 i 1) w liczbę dziesiętną:

Function Bin2Dec(sMyBin As String) As Long
  Dim x As Integer
  Dim iLen As Integer

  iLen = Len(sMyBin)-1
  For x = 0 To iLen
    Bin2Dec = Bin2Dec + Mid(sMyBin, iLen-x+1, 1) * 2^x
  Next

End Function