diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb
index c1fc7aef..23c94dd0 100644
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.vb
@@ -129,7 +129,9 @@ Public Class Form1
         If oDialogResult = DialogResult.OK Then
             Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
             Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
-            Console.WriteLine()
+
+            WriteLog("Specification: " & oResult.Specification)
+            WriteLog("Embedded File Name: " & oResult.DataFileName)
 
             Dim oSpecification = oResult.Specification
 
@@ -143,11 +145,17 @@ Public Class Form1
 
             Dim oResult2 = _zugferd.PropertyValues.CheckPropertyValues(oResult.SchemaObject, oPropertyMap, "test")
 
+            WriteLog("Valid Properties: [{0}]", oResult2.ValidProperties.Count)
+            For Each Prop In oResult2.ValidProperties
+                WriteLog("Property: [{0}] = [{1}]", Prop.Description, Prop.Value)
+            Next
+
+            WriteLog("Missing Properties: [{0}]", oResult2.MissingProperties.Count)
             For Each Prop In oResult2.MissingProperties
                 WriteLog("Missing Property: [{0}]", Prop)
             Next
 
-            Console.WriteLine()
+            WriteLog("--------------------------------")
         End If
     End Sub