Dim DateNow As Date = Date.Now
 Dim DateCallNeeded As Date = Nothing
 
 
 DateCallNeeded = Date.Parse(strDateAndTime)
 'strDateAndTime oben als Konstante festlegen
 
 'Hier jetzt Code rein, um DateNow und DateCallNeeded  in Millisekunden 
 ' umzuwandeln
 
 If lngDateCallNeeded >= lngDateNow Then
   'Hier jetzt Code rein um die entsprechende Routine aufzurufen
   'Wenn die Routine richtig abgearbeitet wurde, dann hier jetzt den Timer 
   ' abschalten
   Me.Timer1.Enabled = False
 End If