Option Explicit
 
Dim WSHShell, text_string, OK
Set WSHShell  = WScript.CreateObject("WScript.Shell")
OK = 1
 
Do While OK = "1"
 
 text_string = InputBox("Werbetext eingeben:", "Werbung", "Dein Text")  _
   WSHShell.Run "iexplore http://pc409:8888/cmd.html?txt=" & text_string & _
   "&cmd=announce&time=10&sc=2", 0
 OK = MsgBox("Wollen Sie einen weiteren Text eingeben", vbOkCancel, "Weiter?")
 
Loop