Private Sub Timer1_Timer()
   
    InValue = PortIn(889)
         
          If InValue = 95 Then
          if contar = true then
            TicsParar = TicsParar + 1
           
           Label1.Caption = TicsParar
           end if
            If TicsParar = 50 Then
                Label1.Caption = "endavant" & TicsParar
                TicsParar = 0
                contar = false
           End If
           
            '
        End If

End Sub