<code><font  color=green>'Ereignis wird ausgelöst, sobald das Dokument 
' vollständig geladen ist</font>
Private Sub anzeige_DownlaodComplete()
  anzeige.Tag = "OK"
End Sub</code>

<code>Sub öffnen(text) 
  If Len(text) > 3 Then 
    With frmBrowser1
      .anzeige.Tag = ""
      .anzeige.Navigate text
      Do
        DoEvents
      Loop Until .anzeige.Tag = "OK"
 
      .Show vbModal
    End With
  Else 
    MsgBox ("Es wurde keine Datei angegeben") 
  End If 
  ...
End Sub</code>