dim strOne,strNum,strString,newNo,NumFormat as string
dim i,j,StrLen,NumLen as Integer
'开始取出后面的数字
StrLen=len(strOldMax)
strOne=right(strOldMax,1)
for i=1 to strLen
strOne=(mid(strOldMax,StrLen-i,1)
if IsNumeric(strOne) then
strNum=strOne & strNum
else
exit for
end if
next