先用_分隔，函数用split(strTemp,"_")
然后用chr()转换回去，针对你的代码，可以如下写：
dim ThisstrTemp,ThisAr,Vstr
ThisstrTemp=strToAsc(strValue)
ThisAr=split(ThisstrTemp,"_")
for i=0 to Ubound(ThisAr)
if IsNumeric(ThisAr(i)) then
Vstr=Vstr&chr(ThisAr(i))
end if
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024