Dim doc As HtmlDocument = WebBrowser1.Document
        Dim tBox As HtmlElement = Nothing
        For Each el As HtmlElement In doc.All
            If el.TagName.Equals("a", StringComparison.OrdinalIgnoreCase) Then
                Dim elType As String = el.GetAttribute("href")
                tBox = el
            End If
        Next
        If tBox Is Nothing Then Return
 
        'temporären Container erstellen
        Dim span As HtmlElement = doc.CreateElement("span")
        Dim Premium_Toolbar As String = _
        "Hallo World"
        span.InnerHtml = Premium_Toolbar
        Dim tbl As HtmlElement = span.FirstChild
        tBox.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterEnd, _
          tbl)