[flinx]

hab das jetzt nochmal probiert aber irgendwie funzt das gar ned.

??
Habs nur unter Excel probiert, aber des funktioniert:

Sub irgendwas()
    Test = Shell("cmd.exe /C ping 10.1.1.4 >d:\myip.txt")  
    Open "d:\myip.txt" For Input As #1
         Do Until EOF(1)
            Line Input #1, meintext
            If meintext <> "" Then MsgBox meintext
         Loop
         Close #1

End Sub