如何进行split？

<%
dim str,a,i
str="sfdsfdfs（999343)j5~34f@（343255)32ccsdrf"

a=getarray（str,6)

response.write "<pre>"
for i=0 to ubound（a)
    response.write a（i) &vbcrlf
next
response.write "</pre>"

function getarray（stext,num)
    dim re,spatrn
    set re = new regexp
    spatrn="\（\d{"& num &"}\)"
    re.pattern = spatrn
    re.ignorecase = true
    re.global=true
    getarray =split（re.replace（stext,"{$mymark}"),"{$mymark}")
    set re=nothing
end function
%>