VB.NET检查IP地址是否合法函数

    Function chk_ip(ByVal strIP)
        '检查IP地址是否合法函数
        Dim boolIsIP, intLoop As Integer
        Dim arrIP
        boolIsIP = 0  '函数初始值为true  
        arrIP = Split(strIP, ".") '将输入的IP用"."分割为数组，数组下标从0开始，所以有效IP分割后的数组上界必须为3  

        If UBound(arrIP) <> 3 Then
            boolIsIP = 1
        Else
            For intLoop = 0 To UBound(arrIP)
                If Not IsNumeric(arrIP(intLoop)) Then       '检查数组元素中各项是否为数字，如果不是则不是有效IP  
                    boolIsIP = 1
                Else
                    If arrIP(intLoop) > 255 Or arrIP(intLoop) < 0 Then       '检查IP数字是否满足IP的取值范围  
                        boolIsIP = 1
                    End If
                End If
            Next
        End If
        chk_ip = boolIsIP
    End Function