Gracias a Jaime, tenemos una nueva versión para validar una dirección IP.
Private Function ValidarIP(ByVal aIP As String) As Boolean
Dim temp As Object
Dim i As Integer
On Error GoTo mException
temp = Split(aIP, ".")
ValidarIP = True
For i = 0 To 3
If Not IsNumeric(temp(i)) Or Val(temp(i)) < 0 Or Val(temp(i)) > 256 Then
ValidarIP = False
End If
Next i
Exit Function
eption:
Err.Clear()
ValidarIP = False
End Function
Posted
jue, ene 20 2000 14:24
by
Maverick