diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index 2c537ac..92a2e35 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -1677,8 +1677,8 @@ Public Class frmIndex
                 If CURRENT_LASTDOKART <> "" Then
                     _Logger.Info("Last Saved DocType: {0}", CURRENT_LASTDOKART)
 
-                    Dim oFoundDocType = ComboboxDoctype.Properties.DataSource.
-                        Cast(Of DocType)().
+                    Dim oDocTypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
+                    Dim oFoundDocType = oDocTypes.
                         Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
                         FirstOrDefault()