German Konvertierung Zeit und Datum in String

Sub App_Start
   
  Form1.Show
  
  txtVorgNr=DatumZeit

End Sub

Sub DatumZeit
  Dim tx,txt
   
  tx=SubString(DateY,2,2)
  txt="PR"&tx
  
  tx=DateM
  If StrLength(tx)=1 Then  ' ergänzt mit einer 0 falls nötig
    tx="0"&tx
  End If
  txt=txt&tx

  tx=DateD
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx

  tx=TimeH
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx
 
  tx=TimeM
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx

  Return txt
End Sub

DateFormat("yymmdd")
TimeFormat("HHmm")
txtVorgNr = "PR" & Date(Now) & Time(Now)

        Dim ZeitStart,ZeitEnde,ZeitDiff As Long
        Dim ZeitTemp1()As String =Regex.Split(",",listtemp.Get(1))
            ZeitStart=DateTime.DateTimeParse(ZeitTemp1(3),ZeitTemp1(3))
        Dim ZeitTemp2()As String =Regex.Split(",",listtemp.Get(listtemp.Size-1))
            ZeitEnde=DateTime.DateTimeParse(ZeitTemp2(3),ZeitTemp2(3))

Dim ZeitStart,ZeitEnde,ZeitDiff As Long
DateTime.DateFormat = "yyyyMMdd"
DateTime.TimeFormat = "HHmmss"
Dim ZeitTemp1() As String = Regex.Split(",",listtemp.Get(1))
Dim DT1() As String = Regex.Split("_",ZeitTemp1(3))
ZeitStart=DateTime.DateTimeParse(DT1(0),DT1(1))
Dim ZeitTemp2() As String = Regex.Split(",",listtemp.Get(listtemp.Size-1))
Dim DT2() As String = Regex.Split("_",ZeitTemp2(3))
ZeitEnde=DateTime.DateTimeParse(DT2(0),DT2(1))

Form1.Show