Input-Box for password & Monte Carlo

Option Explicit[/FONT]
[FONT=Courier New]Private Sub Workbook_Open()
 Dim passwordentered As String
 Dim myCounter As Integer
 myCounter = 0
 
reenterpassword:
 passwordentered = InputBox("Please enter the password " & vbNewLine & _
 3 - myCounter & " numbers of attempts left... ")
 If passwordentered <> "[/FONT][EMAIL="Myp!@#$"][FONT=Courier New]Myp!@#$[/FONT][/EMAIL][FONT=Courier New]" Then
  myCounter = myCounter + 1
  If myCounter >= 3 Then
   MsgBox "3 Attempts over...."
   ThisWorkbook.Close False
   Exit Sub
   End If
  GoTo reenterpassword
 Else
 Sheets(1).Select
 End If[/FONT]
[FONT=Courier New]End Sub