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

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

/bbs/Inc/YX_Cls.Asp，行 395

代码如下：

Function GetIp(Ip,IpNum)
        Dim Arr_Ip
        If Ip="" Then Exit Function
        Arr_Ip=split(Ip,".")
        Select Case IpNum
            Case "1"
                GetIp=Arr_Ip(0) & ". * . * . * "
            Case "2"
                GetIp=Arr_Ip(0) & "." & Arr_Ip(1) & ". * . * "    （这是395行）
            Case "3"
                GetIp=Arr_Ip(0) & "." & Arr_Ip(1) & "." & Arr_Ip(2) & ". * "
            Case "4"
                GetIp=Arr_Ip(0) & "." & Arr_Ip(1) & "." & Arr_Ip(2) & "." & Arr_Ip(3)
            Case Else
                GetIp=" * . * . * . * "
        End Select
    End Function

2楼的大哥能不能详细一点啊，小弟很茫然啊！