fix crash when cancelling add new profile

Global_Indexer/frmIndex.vb

@@ -427,36 +427,7 @@ Public Class frmIndex
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:")
         End Try
     End Sub
-    '    'Function Get_Nachbearbeitung_Wert(idxvalue As String, DTNB As DataTable)
-    '    '    Dim result As String = idxvalue
-    '    '    Try
-    '    '        For Each row As DataRow In DTNB.Rows
-    '    '            Select Case row.Item("TYP").ToString.ToUpper
-    '    '                Case "VBSPLIT"
-    '    '                    LOGGER.Info(" - Nachbearbeitung mit VBSPLIT")
-    '    '                    Dim strSplit() As String
-    '    '                    strSplit = result.Split(row.Item("TEXT1").ToString)
-    '    '                    For i As Integer = 0 To strSplit.Length - 1
-    '    '                        If i = CInt(row.Item("TEXT2")) Then
-    '    '                            LOGGER.Info(" - Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i))
-    '    '                            result = strSplit(i).ToString
-    '    '                        End If
-    '    '                    Next
-    '    '                Case "VBREPLACE"
-    '    '                    result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-    '    '            End Select
-    '    '        Next
-    '    '        Return result
-    '    '    Catch ex As Exception
-    '    '        LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
-    '    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-    '    '        Return result
-    '    '    End Try
 
-    '    'End Function
-    '    Dim sql_history_INSERT_INTO As String
-    '    Dim sql_history_Index_Values As String
-    '    Dim _NewFileString As String
     Function Name_Generieren()
         Try
             Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"