Function passwordOK()
msg = "Please type the password and click OK."
title = "Password Required"
guess = inputBox(msg, title)
If UCase(guess) = "D0N1N51D3" Then
passwordOK = True
Else
passwordOK = False
End If
End Function