Mastering Variables in VB6

Dim adminPassword As String
Dim loginAttempts As Integer

Private Sub Form_Load()
    adminPassword = "Secure123"
    loginAttempts = 0
End Sub

Private Sub btnLogin_Click()
    If txtPassword.Text = adminPassword Then
        frmMain.Show
        Unload Me
    Else
        loginAttempts = loginAttempts + 1
        If loginAttempts >= 3 Then
            MsgBox "Account locked!", vbCritical
            End
        End If
    End If
End Sub

Dim itemPrice As Currency
Dim quantity As Integer
Dim totalValue As Currency

Private Sub CalculateTotal()
    On Error Resume Next
    itemPrice = CCur(txtPrice.Text)
    quantity = CInt(txtQty.Text)
    totalValue = itemPrice * quantity
    
    lblTotal.Caption = Format(totalValue, "Currency")
    If Err.Number <> 0 Then
        MsgBox "Invalid numeric input", vbExclamation
    End If
End Sub