Fenetre personalisable en VBS

Dim Titre, Choix, vbCrlf, Tache, ChoixMsg 
Titre = "Essai"
vbCrlf = Chr(13)
Tache = Split("test1,test2,Quitter,",",")
Do
      Choix = Inputbox("Entrez le numéro de la tâche que vous désirez effectuer :" & vbCrlf & vbCrlf & "1) test1" & vbCrlf & "2) test2" & vbCrlf & "0) Quitter", Titre, "0")
If Choix <> 0 Then
       On Error Resume Next
        Select Case Choix
                Case 1: MsgBox "Ceci est le test1"
                Case 2 : MsgBox "Ceci est le test2"
          End Select
       
On Error Goto 0
End If
If Choix = 0 Then
	ChoixMsg = MsgBox("Souhaitez-vous quittez l'application ?", vbYesNoCancel, Titre)
		If ChoixMsg = vbYes Then WScript.quit
	End If
Loop