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