Drinking Age Problem Code

Private Sub cmdDrink_Click()

    Dim intAge As Integer

    intAge = Val(InputBox("Enter Age", "Your Age"))

    If intAge >= 21 Then

        MsgBox "Drinking Age“, vbOKOnly, "Drink Age Check"

    Else

        MsgBox "Too Young to Drink“, vbOKOnly, "Drink Age Check"

    End If

End Sub