Kontrollera en form? Liten funktion:Hitta i text?
'Ex: kotrollera om ett värde är ett tcp/ip nr,
'Formel: (xxx.xxx.xxx.xxx) eller iiii.iiii... ?
'Value = Val(Value)?
Finns det stöd för tcp/ip formel?
Vänligen tDSv: Hitta i text?
<code>
Public Function ValidIP(Value As String) As Boolean
Dim Data() As String
Dim vByte As Byte
Dim Index As Long
On Error GoTo ValidIP_Exit
Data = Split(Value, ".")
For Index = 0 To 3
vByte = CByte(Data(Index))
Next
ValidIP = True
ValidIP_Exit:
End Function
</code>