Tempo Regressivo

Pessoal estou com um problema nesse formulario ele estava funcionando bem mais agora ele esta com o seguinte bug quando coloco mais de um formulario para contar os minutos quando chega perto de acabar o tempo em vez de zera ele continua contando de modo negativa por exemplo 0:05,0:04,0:03,0:02,0:01,-1:60,-1,59 e assim vai alguem sabe como posso resolver esse problema.
Estou Usando esse codigo
Private Sub Form_Timer()
If Tempo = StrTempo Then '( 180 segundos = 3 minutos )
Me.lbTempo.Caption = "0:00"
Me.TimerInterval = 0
Else
Tempo = Tempo + 1
Tempo1 = Tempo1 + 1
S = S - 1
If S = 0 Then S = 60
If Len(S) = 1 Then S = "0" & S
Me.lbTempo.Caption = M & ":" & S
If Tempo1 = 60 Then
M = M - 1
Me.lbTempo.Caption = M & ":" & S
Tempo1 = 0
End If
End If
End Sub
Segue o Exemplo que estou usando

por favor alguem pode me ajudar

O problema não ocorreu aqui. Até chegou a exibir -1:60 mas depois passou para 0:00 e parou.