Dim arr_Datum_Tag() As String = strTag.Split("|"c)
        Dim arr_Datum_Monat() As String = strMonat.Split("|"c)
        Dim arr_Datum_Jahreszahl() As String = strJahreszahl.Split("|"c)
 
        Dim EndDatum As String
        For i As Integer = 0 To 99
            EndDatum &= arr_Datum_Tag(i) & "." & arr_Datum_Monat(i) & "." & _
              arr_Datum_Jahreszahl(i)
        Next