ImportZUGFeRD: fix shti

Jobs/EDMI/ZUGFeRD/PropertyValues.vb

@@ -10,7 +10,7 @@ Public Class PropertyValues
         Dim oNameParts As String() = PropertyName.Split("."c)
 
         If IsNothing(Obj) Then
-            Return Nothing
+            Return New List(Of Object)
         End If
 
         If oNameParts.Length = 1 Then
@@ -31,11 +31,11 @@ Public Class PropertyValues
             Dim oInfo As PropertyInfo = oType.GetProperty(oPartName)
 
             If IsNothing(oInfo) Then
-                Return Nothing
+                Return New List(Of Object)
             End If
 
             If IsNothing(oInfo.GetValue(Obj, Nothing)) Then
-                Return Nothing
+                Return New List(Of Object)
             End If
 
             Obj = oInfo.GetValue(Obj, Nothing)