fix split bug in propertyvalues, remove obsolete functions

Jobs/EDMI/ZUGFeRD/PropertyValues.vb

@@ -60,7 +60,7 @@ Public Class PropertyValues
 
             If IsArray(Obj) And Not oHasIndex Then
                 Dim oCurrentPart As String = oPart
-                Dim oSplitString As String() = New String() {"." & oCurrentPart & "."}
+                Dim oSplitString As String() = New String() {oCurrentPart & "."}
                 Dim oPathFragments = PropertyName.Split(oSplitString, StringSplitOptions.None)
                 Dim oResults As New List(Of Object)
 
@@ -72,10 +72,6 @@ Public Class PropertyValues
                 For Each oArrayItem In Obj
                     Dim oResult As List(Of Object) = GetPropValue(oArrayItem, oPathFragments(1))
 
-                    'If Not IsNothing(oResult) AndAlso oResult.Count > 0 Then
-                    '    oResults.Add(oResult.Item(0))
-                    'End If
-
                     If Not IsNothing(oResult) Then
                         oResults.Add(oResult)
                     End If