Private Sub Timer1_Timer()
InValue = PortIn(889)
If InValue = 95 Then
TicsParar = 200 'poner eso en otro lado
TicsParar = TicsParar - 1
Label1.Caption = TicsParar
End If
End Sub
Pues claro que siempre va mostrar 199 si cada vez que entra al timer le vuelves y le asignas 200 y le restas 1 . Solo debes de cambiar de posicion cuando se le asigna el 200. Ponlo antes del timer o no se donde.