Dim Style As HTMLStyleElement
    Set Style = mDocument.createElement("style")
    Style.Type = "text/css"
    Style.styleSheet.cssText = "hier alle möglichen Style-Angaben, ggf. aus" & _
      "einer Datei geladen"
    With mDocument.GetElementsByTagName("head")(0)
        .appendChild Style
    End With