function getStr(InStr as string,outArr() as string) as long
dim tempArr() as string,I as integer
redim outArr(0)
temparr() = split(inStr)
for i = 0 to ubound(temparr())
if len(tempArr(i))>4 then
redim preserve outArr(ubound(outArr())+1)
outArr(ubound(outArr()) = tempArr(i)
end if
next i
getStr = ubound(outArr())
end function
内容全部来源于网络收集，如有侵权，请联系网站删除！