菜鳥學堂： dim tep as string dim temp as string dim i as integer dim b as integer tep = rmsg i = len(tep) if i < 1 then exit function
b = i / 4 if i = b * 4 then
tep = left(tep, b * 4) else b = b - 1 tep = left(tep, b * 4) end if chg = "" for i = 1 to b temp = "&h" & mid(tep, (i - 1) * 4 + 1, 4) chg = chg & chrw(cint(val(temp))) next i
