Set WshShell = CreateObject("Wscript.Shell")
Pfad = WshShell.CurrentDirectory
 
If Right(Pfad,1)<>"\" then
	Pfad = Pfad & "\"
end if
 
Pfad = Pfad & "test.txt"
 
Set FSO=CreateObject("Scripting.FileSystemObject")
 
If (FSO.FileExists(Pfad)) Then
 
	Set f = FSO.OpenTextFile(Pfad, 1)
 
		Do While f.AtEndOfStream <> True AND Left(Zeile, 10) <> "IP-Adresse"
 
			Zeile = f.Readline
 
		Loop
 
		x = InStrRev(Zeile, ":")
 
		Zeile = Right(Zeile, Len(Zeile) - x)
 
		msgbox zeile
 
	f.Close
 
End If