Shell("ping 62.255.112.65 > C:TMPPing.TXT")



On Error Goto FileError

p = Timer

Open "C:TMPPing.TXT" For Input As #1

    ... einlesen

Close #1

Kill "C:TMPPing.TXT"

Exit Sub



FileError:

    If Timer - p < 20 'Sekunden Then  

         Resume

   Else

        MsgBox "Kein Kontakt!",vbInformation,"Fehler von Ping"

   End If

End sub