Private Sub Form_Activate()
    Dim n As Variant
    Dim m As Long
 
    m = 75
 
    web_dictionary.Navigate "http://de.pons.com/%C3%BCbersetzung?q=" & vokabel _
      & "&l=deen&in=&lf=en"
 
    Do
        DoEvents
    Loop Until web_dictionary.Busy = False
 
    web_dictionary.ExecWB 63, OLECMDEXECOPT_PROMPTUSER, CVar(m), n  
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!!!