diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb
index 80da517..6896043 100644
--- a/app/DD_PM_WINDREAM/ClassPMWindream.vb
+++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb
@@ -40,24 +40,22 @@ Public Class ClassPMWindream
         MyBase.New()
     End Sub
     Private Function IsNotEmpty(ByVal aValue As Object)
-
         If aValue IsNot Nothing Then
-            Dim itsType As Type = aValue.GetType
-            If itsType Is GetType(String) Then
+            Return True
 
-                ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
-                'If Not aValue = "" Then
-                '    Return True
-                'End If
+            'If TypeOf aValue Is String Then
+            '    ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
+            '    'If Not aValue = "" Then
+            '    '    Return True
+            '    'End If
 
-                Return False
-            Else
-                Return True
-            End If
+            '    Return False
+            'Else
+            '    Return True
+            'End If
         Else
             Return False
         End If
-
     End Function
     Private Function return_type(ByVal _wert As Object)
         Return _wert.GetType
@@ -134,7 +132,8 @@ Public Class ClassPMWindream
                         ' den Variablentyp (String, Integer, ...) auslesen 
                         vType = oAttribute.getVariableValue("dwAttrType")
                         ' wenn in aValues an Position i ein Wert steht
-                        If Me.IsNotEmpty(aValues(i)) Then
+
+                        If IsNotEmpty(aValues(i)) Then
                             Dim _int As Boolean = False
                             Dim _date As Boolean = False
                             Dim _dbl As Boolean = False
@@ -440,27 +439,25 @@ Public Class ClassPMWindream
                     Dim vType = oAttribute.getVariableValue("dwAttrType")
                     'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString)
                     ' wenn in aValues an Position i ein Wert steht
-                    If Me.IsNotEmpty(Indexname) Then
-                        'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
-                        Dim value = _state
-                        Dim convertValue
-                        'Den Typ des Index-Feldes auslesen
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString)
-                        Select Case (vType)
-                            Case WMObjectVariableValueTypeBoolean
-                                convertValue = CBool(value)
-                            Case Else
-                                ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
-                        End Select
-                        '############################################################################################
-                        '####################### Der eigentliche Indexierungsvorgang ################################
+                    'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
+                    Dim value = _state
+                    Dim convertValue
+                    'Den Typ des Index-Feldes auslesen
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString)
+                    Select Case (vType)
+                        Case WMObjectVariableValueTypeBoolean
+                            convertValue = CBool(value)
+                        Case Else
+                            ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
+                    End Select
+                    '############################################################################################
+                    '####################### Der eigentliche Indexierungsvorgang ################################
 
-                        oDocument.SetVariableValue(Indexname, convertValue)
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt")
-                        oDocument.Save()
-                        oDocument.unlock()
-                        ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
-                    End If
+                    oDocument.SetVariableValue(Indexname, convertValue)
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt")
+                    oDocument.Save()
+                    oDocument.unlock()
+                    ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
                 Else
                     ClassLogger.Add(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
                 End If