Dim ds As String = "150521"
        Dim dt2 As DateTime = DateTime.ParseExact(ds, "yyMMdd", Nothing)
        Dim ds1 As String = dt2.ToShortDateString()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist