用split函数出现一下异常

用split函数出现一下错误!
<%
Dim   aaa()
          aaa   =   split( "1-2-3 ", "- ")              
        response.Write(aaa.length)
%>


错误提示:

Microsoft   VBScript   运行时错误   错误   '800a000d '  

类型不匹配  

/ccc.asp，行   3  


------解决方案--------------------
Dim aaa
aaa = split( "1-2-3 ", "- ")
response.Write(UBound(aaa)+1)