diff --git a/Interfaces/ZUGFeRDInterface/PropertyValues.vb b/Interfaces/ZUGFeRDInterface/PropertyValues.vb
index f0cbd003..545ee478 100644
--- a/Interfaces/ZUGFeRDInterface/PropertyValues.vb
+++ b/Interfaces/ZUGFeRDInterface/PropertyValues.vb
@@ -332,10 +332,10 @@ Public Class PropertyValues
                         s = Convert.ToString(Obj)
 
                         If IsDate(s) Then
-                            ' Hier wird das DEFAULT-Format auf yyyy-MM-dd gesetzt
+                            ' Hier wird das DEFAULT-Format auf yyyyMMdd gesetzt
                             Dim dtfi As DateTimeFormatInfo = CultureInfo.CreateSpecificCulture(CultureInfo.InvariantCulture.Name).DateTimeFormat
-                            dtfi.DateSeparator = "-"
-                            dtfi.ShortDatePattern = "yyyy/MM/dd"
+                            dtfi.DateSeparator = ""
+                            dtfi.ShortDatePattern = "yyyyMMdd"
 
                             d = CDate(s)
                             oResult = d.ToString("d", dtfi)