Im still a beginner and i need help with this code

[OoD23oO]

Okay, so the error message says "Block If without End If"....any suggestions?


Private Sub Timer1_Timer()

intCounter = intCounter + 1
If intCounter = 185000 Then
MsgBox "Times up!", vbInformation + OKOnly, "UR SO SLOW"
If Response = vbOK Then
Unload Me
Timer1.Enabled = False

End If
lblTimer = intCounter
End Sub