minimo aiuto per file vbs

[torrent]

Gentilmente qualcuno mi dice cosa correggere per far funzionare il secondo script?
grazie

questo funziona:

title = "Salve" 'Titolo dell'applicazione
question=MsgBox("felice?",vbYesNo+vbQuestion,title)
if question=vbYes then
Call Happy
Else
Call NotHappy

Sub NotHappy
MsgBox "NOT?"
End Sub

WScript.quit

Sub Happy
MsgBox "YESSSS!"
End Sub
End If
WScript.quit

questo no:

title = "Salve" 'Titolo dell'applicazione
question=MsgBox("felice?",vbYesNo+vbQuestion,title)
if question=vbYes then
Call Happy
Else
Call NotHappy

Sub NotHappy
title = "Why not" 'Titolo dell'applicazione
question=MsgBox("Hai idea del perche'?",vbYesNo+vbQuestion,title)
if question=vbYes then
Call Idea
Else
Call NotIdea

Sub NotIdea
MsgBox "peccato..."
End Sub
WScript.quit

Sub Idea
MsgBox "bene!"
End Sub
WScript.quit

Sub Happy
MsgBox "YESSSS!"
End Sub
End If
WScript.quit

[das]

Così dovrebbe funzionare

title = "Salve" 'Titolo dell'applicazione
question=MsgBox("felice?",vbYesNo+vbQuestion,title)
if question=vbYes then
Call Happy
Else
Call NotHappy
End if

Sub NotHappy
title = "Why not" 'Titolo dell'applicazione
question=MsgBox("Hai idea del perche'?",vbYesNo+vbQuestion,title)
if question=vbYes then
Call Idea
Else
Call NotIdea
End if
End Sub

Sub NotIdea
MsgBox "peccato..."
WScript.quit
End Sub

Sub Idea
MsgBox "bene!"
WScript.quit
End Sub

Sub Happy
MsgBox "YESSSS!"
WScript.quit
End Sub

[torrent]

Grazie Das, funziona perfettamente.
Adesso forse mi sarà più facile capire