VBS GoTo funktioniert nicht

set WshShell = WScript.CreateObject("WScript.Shell")  

windowName = "Server ist ausgelastet"          'Hier muss der Titel des Fenster eingetragen werden an den der Tastendruck gesendet werden soll. Titel! also Titelleiste :)  
choice = MsgBox ("Mit OK starten")  

answer  = 0
counter = 0
while answer <> 6	
	result = false
	result = WshShell.AppActivate (windowName)   'Hier wird versucht ein Fenster mit diesem Namen zu finden und zu fokussieren  

	if result = true then 
                'Send "{TAB}"  eventuell benötigt um bei einem aufgehenden Fenster die Standardantwort durchzuschalten. bspw von No auf YES  
		Send "{ENTER}"  
		counter = counter + 1
	end if

	answer = WshShell.Popup("Sendkey beenden?" & vbcrlf & vbcrlf & "Bisherige Treffer: " & counter,3, "Frage", 4 + 32)  
	WScript.Sleep 1000
wend

msgbox "Sendkey beendet"  

sub Send (sendString)
	WScript.Sleep 100
	WshShell.SendKeys sendString
end sub

        private void fadein(object sender, EventArgs e) {
// als LOAD-Event der Form (bei Bedarf auch für Subforms und Dialoge)
            this.Opacity = 0;
            for (double i = 0; i < 100; i += 10) {
                this.Opacity = i / 100;
                this.Refresh();
            }
            this.Opacity = 1;
        }
        private void fadeout(object sender, EventArgs e) {
// als CLOSED-Event der Form (bei Bedarf auch für Subforms und Dialoge -> ohne Application.Exit)
            for (double i = 100; i > -1; i -= 10) {
                this.Opacity = i / 100;
                this.Refresh();
            }
            Application.Exit();
        }