vb split函數，怎樣根據多個字符串分割？

DIM x() AS STRING,y() as string,s as string

DIM i as integer,j as integer

s="a1,a2,a3;b1,b2,b3,b4"

x=split(s,";") ' 結果x有兩個元素："a1,a2,a3"和"b1,b2,b3,b4"

for i=LBOUND(X) TO UBOUND(X)

y=split(x(i),",")

for j=LBOUND(y) to UBOUND(y)

print y(j),

next j

print

next i