'------------------------------------------------------
'16進数から10進数に変換する
'------------------------------------------------------
Function HexToDecimal(value As String) As Long
    
    '&Hを付けて数値にする
    HexToDecimal = Val("&H" & value & "&")

    '【例】
    '   value = "FF"    → 255
    '   value = "AA"    → 170
    '   value = "FFFF"  → 65535

End Function