Dim Datum = AttackDatum
        Dim DatumNow = System.DateTime.Now
 
        While Datum > DatumNow
            DatumNow = System.DateTime.Now
            System.Threading.Thread.Sleep(500) 'Wartet 5 Sek.
        End While