IP Kontrol Ip adresi kontrol etmek için basit bir komut sistemi!

Public Function IsValidIP(ByVal strIPAddress As String) As Boolean
Dim arrArgs() As String, i As Integer
arrArgs() = Split(strIPAddress, ".", 4)


If UBound(arrArgs) = 3 Then


For i = 0 To 3


If IsNumeric(arrArgs(i)) Then
If Not (arrArgs(i) >= 0 And arrArgs(i) <= 255) Then Exit Function
Else: Exit Function: End If
Next i
Else: Exit Function: End If
IsValidIP = True
End Function