Dim target As DateTime = DateTime.Parse("7.2.2009 12:00") ' Ziel 
        ' Datum/Uhrzeit
        Dim ts As TimeSpan = target - DateTime.Now

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist