Option Explicit
 
Private Sub web_dictionary_BeforeNavigate2(ByVal pDisp As Object, URL As _
  Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, _
  Headers As Variant, Cancel As Boolean)
  web_dictionary.Silent = True
End Sub
 
Private Sub Form_Activate()
    web_dictionary.Navigate "http://de.pons.com"
    web_dictionary.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, 1#  '0.75%
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!