How to get a pop-up window to tell you when you type ind the wrong password?

Hi.. I have this problem:
Below i have the code for password protecting a save button. I would like to have a pop-up window to tell if you have typed in the wrong password. How can this be done??
Best regards
Simon Christensen

Private Sub CommandButton1_Click()
 Dim pw As String
 pw = Application.InputBox("Enter password")
 Select Case pw
 Case "secret"
 'run code
 Case Else
 Exit Sub
 End Select
 
End Sub