现有“WW1000002”这样的字符串，怎样把他分割成为“WW”和“1000002”然后再分别存入2个字段？

Dim WW,Num,Str
Str="WW1000002"
WW=Mid(Str,1,2)
Num=Mid(Str,2,Len(Str)-2)
Response.Write WW
Response.Write Num