hex expresssion
Dim kekka
Dim d(199)
'moji="asdfg"
'kekka = Hex(Asc(moji)) 'kekka
'msgbox kekka
ip_ad="192.168.31.91"
str_tmp=ip_ad
str_tmp=str_tmp & "."
i=1
do while i <=4
d(i)=Cint(left(str_tmp,instr(str_tmp,".")-1))
str_tmp=Mid(str_tmp,instr(str_tmp,".")+1)
i=i+1
loop
msgbox d(1)
msgbox d(2)
msgbox d(3)
msgbox d(4)
'kekka = Hex(250) 'kekkaに、16進
kekka = Cstr(Hex(d(3))) & Cstr(Hex(d(4))) 'kekka
msgbox kekka