Hoe kan ik meerdere opties toevoegen aan mijn vbs script?

Dit is wat ik nu heb, heb het samengesteld uit voorbeelden van andere vbs scripts:

--------------------------------------------------------------------
Inp01 = Inputbox ("Wat wilt u?",,"Input")
If Inp01 = "Muziek" then

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("""C:\Program Files (x86)\Winamp\winamp.exe""")

Else
Msgbox "Verkeerde input"
End if
--------------------------------------------------------------------

Wat ik wil is dus meerdere inputs dus als ik msn invoer start het msn op.

Toegevoegd na 1 uur:
Door Bami bal heb ik nu dit:

--------------------------------------------------------------------
Inp01 = Inputbox ("Wat wilt u?",,"Input")
Select Case Inp01
Case "muziek"

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("""C:\Program Files (x86)\Winamp\winamp.exe""")

Case "msn"

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("""C:\Program Files (x86)\Windows Live\Messenger\msnmsgr.exe""")

Case Else
Msgbox "Verkeerde input"

End Select

--------------------------------------------------------------------

Nu wil ik een loop maken, dat dit doet:

Als ik opgeef muziek krijg ik weer een inputbox met erin Muziek word gestart, Kan ik nog iets anders voor u doen?

En als ik een verkeerde input geef hij prompt met opdracht niet gevonden probeer opnieuw en bij cencel afsluiten

Weet jij het antwoord?

/2500

Dan wordt het zoiets: Select Case Inp01 Case "Muziek" je code hier Case "msn" je andere code hier Case Else Msgbox "Verkeerde input" End Select Toegevoegd na 15 uur: n.a.v. je toevoeging: Inp01 = inputbox("Wat wilt u?",,"Input") Do Select Case Inp01 Case "Muziek" msgbox "1" Case "msn" msgbox "2" Case "cancel" exit do Case Else Msgbox "Verkeerde input" End Select Inp01 = inputbox("Anders nog iets?",,"Input") Loop

Stel zelf een vraag

Ben je op zoek naar het antwoord die ene vraag die je misschien al tijden achtervolgt?

/100