'------------------------------------------------------
'2進数から10進数に変換する
'------------------------------------------------------
Function BinaryToDecimal(value As String) As Long

    Dim temp    As Long
    Dim i       As Long

    '2進数の重みを掛けて足す
    For i = 0 To Len(value) - 1
    
        If Mid(value, i + 1, 1) <> 0 Then
            temp = temp + 2 ^ (Len(value) - i - 1)
        End If

    Next i

    BinaryToDecimal = temp

    '【例】
    '   value = "10"        → 2
    '   value = "1111"      → 15
    '   value = "11111111"  → 255

End Function