Mind game

Sub MindGame()
Dim nLucky, Counter, uInput As Integer

nLucky = 7
Counter = 2

TryAgain:
uInput = InputBox("Can you guess the lucky number?", "Test your luck")

If uInput = nLucky Then
    MsgBox "CONGRATULATIONS, " & nLucky & " is indeed the lucky number."
Else
    mm = MsgBox("Sorry, that is incorrect. Would you like to try again? (" & Counter & " retry's remaining)", vbOKCancel)
    If mm = vbCancel Then
        MsgBox ("Thanks for playing")
        Exit Sub
    End If
    Counter = Counter - 1
    If Counter = -1 Then
        MsgBox "Sorry, but you are out of retry's, thanks for playing!"
        Exit Sub
    End If
    GoTo TryAgain
End If
End Sub