■16進数→10進数
10進数=Val("&h" & 16進数)

■10進数→2進数
    If lngDec >= 0 Then
        Do
            strDt = lngDec Mod 2 & strDt
            lngDec = lngDec \ 2
        Loop While (lngDec > 0)
    End If

参考：
oshiete1.goo.ne.jp/qa858429.html
oshiete1.goo.ne.jp/qa336376.html