Dim sIP As String = "78.46.67.51"
 
Dim sBuffer As String = _
  My.Computer.FileSystem.ReadAllText("d:\temp\datei.txt")
 
If sBuffer.Contains(sIP & " ") Then
  MsgBox("IP existiert bereits")
Else
  ' ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de