サンプルマクロは、二進数で表された文字列から十進数を得る
ユーザ定義関数です。

Function Sample(Binary As String) As Long

    Dim myLen As Integer
    Dim i As Integer

    myLen = Len(Binary)
    For i = 1 To myLen
        If Mid(Binary, i, 1) = "1" Then
            Sample = Sample + 2 ^ (myLen - i)
        End If
    Next

End Function