correct & incorrect?

[lee123]

I have a problem getting the correct to count +1 every time I get an answer right
and the incorrect is the same.

I have two lbl's named number1 and number2 which produces a Rnd# in each lbl.

I have a txt box for the answer called useranswer.

A button to check if the answer is right called btnanswer.

I have just added two more lbl's for the correct named lblcorrect & the other is lblincorrect. How do I get this to count when the correct answer is correct and the incorrect well incorrect because right now I have a msgbox telling me if I have it correct but I want it to also show how many the code I have is like this:

Private Sub btnanswer_Click()
 
    Dim answer As Integer
    answer = Val(Number1) + Val(Number2)
    If Val(userAnswer) = answer Then
    MsgBox ("YOU ARE CORRECT!")
 
End IF

[Killer42]

This is not necessarily a good way to go about it, but should work.

Private Sub btnanswer_Click()
 
    Dim answer As Integer
    answer = Val(Number1) + Val(Number2)
    If Val(userAnswer) = answer Then
        lblcorrect = val(lblcorrect) + 1
        MsgBox ("YOU ARE CORRECT!")
    Else
        lblincorrect = val(lblincorrect) + 1
    End If

[lee123]

Thank You I see what i for got to put. sometime you get in a hurry and forget the little thing in a code thanks killer42

lee123

[Killer42]

Thank You I see what i for got to put. sometime you get in a hurry and forget the little thing in a code thanks killer42

Glad we could help. :)