Dim zeit1 As Date = Date.Parse(My.Settings.DatumZeit)
        Dim s As String
        Dim ts As TimeSpan
        If zeit1 > Now Then
            ts = zeit1 - Now
            s = "Zukunft"
        Else
            ts = Now - zeit1
            s = "Vergangenheit"
        End If
        MsgBox(ts.TotalSeconds & " in " & s)