vb字符串函数更换模版中的符号

设模版字符窜存放在total变量中
dim id, id1, id2, id3
id=instr(total,"$CompanyProductList")
id0=instr(total,"$",id)
str=mid(total,id,id0-id+1)
id1=instr(str,"(")
id2=instr(str,",")
id3=instr(str,")")
xx=val(mid(str,id1+1,id2-id1-1),id)
yy=val(mid(str,id2+1,id3-id2-1),id)
----------------------------------
没有测试过！不过以前编写过类似的，关键就是找到界定符号的位置。
不知能否回答问题