Set Shell

Sub Run(ByVal sFile)
Dim shell

Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub

Dim storedPassword
storedPassword ="your password"

password = InputBox("Please type the Password.")
if password = storedPassword Then
WScript.Echo "file path"
Else
WScript.Echo " ACCESS DENIED"
Run "file path"
End if

and save as something.vbs, it will make a password for any file you put in the file path..... i was wondering if there is a way i can add sound to whene i get the password right or rong.... pleas some one retype the code above to where i can add a sound.....or just copy and past it....