Control timer

Tengo el siguiente inconveniente:
Quiero implementar en forma periodica una pregunta por el
MSCOMM, para ello habilito un OptionButton donde
selecciono en el tiempo que lo hago mediante un control
Timer, per este pasa a FALSE sin ninguna causa entendible
luego de 4 o 5 preguntas.
El codigo del timer es el siguiente:

Private Sub Timer2_Timer()
'See if it's time to do a transfer.
Dim CurrentTime As Date
ValorTiempo = Val(CommSerie.cboIntervalValue.Text)
'Selecciono cada cuantos minutos pregunto
If CommSerie.MSComm1.PortOpen = False Then
Abrir
Timer2.Enabled = True
Exit Sub
End If
CurrentTime = Now
If DateDiff(CommSerie.Units, CommSerie.PreviousTime,
CurrentTime) >= _
ValorTiempo Then
CommSerie.PreviousTime = CurrentTime


CommSerie.MSComm1.RThreshold = 0
If CommSerie.MSComm1.PortOpen = False Then Exit Sub
Call Digitales ' Pregunta por el puerto serie

Call Mediciones ' otra pregunta al MSCOMM
CommSerie.MSComm1.RThreshold = 4

End If
Timer2.Enabled = True
End Sub

El programa es más largo , con muchos Doevents,
Gracias