Private Function IP_Check()
Anfang:
    Dim i As Integer
    Dim LC As Integer
    LC = Combo_IP.ListCount
    For i = 0 To Combo_IP.ListCount
        If i = LC Then GoTo Anfang
          Combo_IP.ListIndex = i
           falsch" & " " & DateTime.Now)
                WebBrowser1.Navigate "http://" & Combo_IP & "/test.htm"
                     Wait 3
                    If Error Then
                    Resume Next   
                    End If
               Next i
End Function