mid函数是（串，起始字，长度）吧、 Str2(0) = Microsoft.VisualBasic.Mid(str, 2, 2) Str2(2) = Microsoft.VisualBasic.Mid(str, 10, 10)不懂我玩vb6。。
for i = 0 to ubound(Str2)这里加你的那些判断！~next
