Guess Number Problem Code

Private Sub cmdGuessMe_Click()

    Dim intTarget As Integer

    Dim intGuess As Integer

    intTarget = 1 + (Int(6 * Rnd()))

    intGuess = Val(InputBox("Enter a guess between 1 and 6", _

        "Guess Number"))

            If (intGuess = intTarget ) Then

       Beep

       MsgBox "Correct“ , vbOKOnly, "Right Guess

Else

       MsgBox "Incorrect“ , vbOKOnly, “Wrong Guess"

End If

End Sub