'１６進数文字列を数値に変換( 引数　例:HexStringToDec("ffff") )
public function HexStringToDec(HexString as string) as long
	HexStringToDex = val("&H" & HexString)
end function