Sub SimpleIfThen2()
Dim weeks As String
On Error GoTo VeryEnd
weeks = InputBox("How many weeks are in a year:", "Quiz")
If weeks <> 52 Then MsgBox "Try Again": SimpleIfThen2
If weeks = 52 Then MsgBox "Congratulations!"
VeryEnd:
End Sub