Dim datei_alter As String = "??"
        Dim ereigniss_zeit As String = "??"
        Dim tempx() As String = datei_alter.Split(" "c)
        Dim datumx() As String = tempx(0).Split("."c)
        Dim zeitx() As String = tempx(1).Split(":"c)
 
        Dim dt As New Date(CInt(datumx(2)), CInt(datumx(1)), _
                          CInt(datumx(0)), CInt(zeitx(0)), CInt(zeitx(1)), _
                          CInt(zeitx(2)))
        Dim ts1 As TimeSpan = TimeSpan.Parse(ereigniss_zeit)
        Dim ts2 As New TimeSpan(dt.Ticks)