Dim dt As DateTime = DateTime.ParseExact(dts, _
          "yyyy-MM-ddTHH:mm:ss.fff", Nothing)
        Dim newdts As String = dt.ToString("D")

________
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