Dim X
X = MsgBox  ("You requested to open Firefox, Password Identification required, Continue?",4+16,"Notice")
password = "Password"
Do
   returnvalue = InputBox ("Input Password","Identification","**********")
   Select Case returnvalue
    Case password
     answer = true
     MsgBox "Correct."
   Dim shl
   set shl = CreateObject("WScript.Shell")
    WScript.sleep 100
    shl.Run """C:Documents and Settingshs studentMy DocumentsMy MusicMozartMozillafirefox"""
     Exit Do
    Case Else
     answer = false
     MsgBox "Incorrect."
     End Select
Loop