下标越界: '[number: 1]'

Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '[number: 1]'

用了数组,出现这个,有没有解决方法.
报错行:::
Function GetKey(html,Start,Last)
filearray=split(html,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function