Dim datei_alter As String = "2.2.2005 18:30:00"
        Dim dt As DateTime = DateTime.Parse(datei_alter)
        Dim ereigniss_zeit As String = "4.2.2005 18:30:00"
        Dim ts1 As TimeSpan = New TimeSpan(DateTime.Parse(ereigniss_zeit).Ticks)
        Dim ts2 As New TimeSpan(dt.Ticks)
        MessageBox.Show("Zeit: " + ts1.Subtract(ts2).TotalMinutes.ToString + "" & _
          "Minuten")