Private Sub Form_Load()
  Timer1.Interval = 333
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Select Case Time
    Case "16:55:00"
       Text1.Text = "Jetzt" 'beziehungsweise eine Sub/Function aufrufen
         Timer1.Enabled = False  'Timer nun abschalten
  End Select
End Sub

Gru? aus dem Norden
manyki