Why wont my timer turn off after it hits 5 seconds:

Private Sub ShrapTime_Timer()
Dim T As Integer
T = Second(Now) Mod 5

If T = 1 Or 2 Or 3 Or 4 Then
MoveShrap
ElseIf T = 5 Then
ShrapTime.Enabled = False
End If

End Sub