Private SendError_Click()
  Dim sURL As String
 
  sURL = "http://wildgurkenfrei.de/email.php?"
 
  WebBrowser1.Navigate sURL & _
    "abs=" & root.user.text & _
    "&emp=" & "BS.99@gmx.net" & _
    "&betr=" & "FehlerMeldung" & _
    "&msg=" & errorsendLabel.caption
End Sub
 
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  Dim sContent As String
 
  With WebBrowser1.Document.documentElement
    sContent = .outerHTML
  End With
 
  If InStr(sContent, "eMail wurde versand") > 0 Then
    MsgBox "Die Fehlermeldung wurde geschickt !.", _
      vbExclamation
     ErrorSend.hide
  Else
    MsgBox "Ein Fehler ist beim Senden aufgetreten!" & _
      "Bitte überprüfen Sie die Internetverbindung", _
      vbCritical
  End If
End Sub