Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal _
      dwMilliseconds As Long)

Private blnLoad As Boolean

Private Sub UserForm_Activate()
  WebBrowser1.Navigate2 "about:blank"
  Do While blnLoad
    DoEvents
    Sleep 10
  Loop
  WebBrowser1.Document.body.innerHTML = _
      "<marquee>Das ist der Text der durchlaufen soll</marquee>"
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
    URL As Variant, Flags As Variant, TargetFrameName As Variant, _
    PostData As Variant, Headers As Variant, Cancel As Boolean)

  blnLoad = True
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
    URL As Variant)
  blnLoad = False
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _
    URL As Variant)
  With WebBrowser1.Document.body
    .Scroll = "no"
    .Style.Border = "none"
  End With
End Sub