Catch
                    ipheHost = Nothing
                    udtError.Number = PING_ERROR_HOST_NOT_FOUND
                    If udtError.Number = 32769 Then MessageBox.Show("Bitte die" & _
                      "IP Adresse verwenden") '(??)
                    udtError.Description = "Host " & Value & " not found."
                    Return 
                End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist