Set objpage=Browser("DE-PSC Docket Manager").Page("DE-PSC Docket Manager_2").Frame("irgendwas")




Set WshShell = CreateObject("WScript.Shell")

WshShell.AppActivate "DE-PSC Docket Manager"

objpage.WebEdit("ctl00$cphMaster$AddFormat$txtZ").Click

WshShell.SendKeys "1"
Wait 1
WshShell.SendKeys  "9"
wait 1
WshShell.SendKeys "9"
wait 1
WshShell.SendKeys  "0"
wait 1
WshShell.SendKeys  "3"
wait 1

WshShell.SendKeys "{DOWN}"
wait 1
WshShell.SendKeys "{ENTER} "
wait 1
wait 20

Set WshShell = Nothing