vb:在文本文档中有一些十六进制的字符

dim ss() as string, xx() as integer, i as long
open "e:\tmp\123.txt" for binary as #1 '文件名自己改
ss=split(input(lof(1),#1),vbcrlf)
close #1
redim xx(ubound(ss))
for i=0 to ubound(ss)
xx(i)=val("&