How to set 3 attempts in VBA Excel

[FrenzKyleBernas]

We have a school project which is to create a VBA through Excel and I have problem about coding attempts in Log in. Everytime I open the file and put some incorrect username and password once the message box appears and say that "You have entered an invalid username/password 3 times already" what would I do to make it 3 attempts? Thanks for the help.

CommandButtons
CANCEL
OK

TextBox
Username
Password



here is my code...

Private Sub CANCEL_Click()
 
If MsgBox("Are you sure you want to quit?", vbQuestion + vbYesNo, "Exit Program?") = vbYes Then
ThisWorkbook.Close 1
End
End If
 
End Sub
 
 
 
Private Sub OK_Click()
 
If Username.Text = "" Then
MsgBox "Please enter your username to proceed.", vbExclamation, "Missing Username"
Username.SetFocus
ElseIf Password.Text = "" Then
MsgBox "Please enter your password to proceed.", vbExclamation, "Missing Password"
Password.SetFocus
Else
 
    If Username.Text = Sheet2.Cells("2", "B") And Password.Text = Sheet2.Cells("3", "B") Then
    MsgBox "Correct username and password. Access Granted.", vbInformation, "Welcome to Merry Toddlers Learning Center"
    Username.Text = ""
    Password.Text = ""
    'Application.DisplayFullScreen = True
    Login.Hide
    Welcome.Show 1
    Else
    MsgBox "Invalid username/password. Please try again.", vbCritical, "Invalid username/password"
    Tries = Tries - 1
        If Tries < 1 Then
        MsgBox "You have entered an invalid username/password 3 times already. Program will now terminate.", vbCritical, "Program Shutdown"
        ThisWorkbook.Close 1
        End
        End If
    End If
 
End If
 
End Sub
 
Private Sub Password_Change()
 
End Sub
 
Private Sub UserForm_QueryClose(CANCEL As Integer, CloseMode As Integer)
CANCEL = 1
Call CANCEL_Click
End Sub
 
Private Sub Username_Change()
 
End Sub

[zmbd]

Hint Line 31
The variable is not initialized.

You should also get in to the habit of explicitly declaring your variables.

Open any Office-word/excel/database>
<alt><F11> to open the VBA editor...
Menu>Tools>Options>
>Editor tab, UNCHECK "auto Syntax Check" you're vba code will still highlight if in error, just no annoying message boxes while you type!
>CHECK the "Require Variable Declaration" option --- you will now have to use the "DIM...variablename....typecaste" construct in your code. Highly advised.
Everything else on this tab check, I prefer the tab step to be either 2 or 4 spaces.
>The other tabs are good as is for most people, review if you want.

FrenzKyleBernas
Please be aware of the fact that we do not normally answer homework questions; however, because you have made an effort and shown your work - we do often make an exception to the rule in such cases with a hint or two; however, rarely an outright answer. :)

[svh00987]

I think using a global variable (integer type) , increasing it's value by 1 on each click of "Ok" button may help to create the logic while the variable is less than 3.

[zmbd]

svh00987,
Unnecessary complication to the code.
OP simply needs to initialize the variable.