'------------------------------------------------------
'2進数から16進数に変換する
'------------------------------------------------------
Function BinaryToHex(value As String) As String
    
    'BinaryToDecimalは「2進数から10進数に変換する」
    'で紹介しています。

    '10進数に変換したものをHex関数で16進すうにする
    BinaryToHex = Hex(BinaryToDecimal(value))

    '【例】
    '   value = "10"        → 2
    '   value = "1010"      → A
    '   value = "11111111"  → FF

End Function