Wo liegt hier der Fehler (VB-Skript)?

Ich habe versucht da so ein Programm in VBS zu coden aber mir ist da irgendein Fehler unterlaufen. Kann mir da wer helfen diesen Fehler zu beheben? Das Programm soll einen Satz sagen (mit Stimme), ein Fenster öffnen wo man eine Website eingibt und diese dann öffnen. Hier ist der Code:
set STIMME=createobject("sapi.voice")
STIMME.speak("Bitte nenne den Namen der Website die du öffnen willst!")
WEBSITE=inputbox("Nenne den Namen der Website","website")
set WSITE=createobject("wscript.shell")
DO
If Website = "" Then
STIMME.speak("Website nicht gefunden. Bitte versuche es erneut!")
WEBSITE=inputbox("Nenne den Namen der Website","website")
Else
STIMME.speak("Loading " & WEBSITE & ".com")
set WSITE=createobject("wscript.shell")
WSITE.run "http://www. " & WEBSITE & ".com")
STIMME.speak("Website wurde geladen!")
exit do
Loop

:)