Essensbestellungen -> Menüanzeige

SDL/frmEssensbestellungenAdministration.vb

@@ -1049,6 +1049,8 @@ Public Class frmEssensbestellungenAdministration
 
     Private Function ReplaceFirst(text As String, search As String, replace As String, startIndex As Integer, EndIndex As Integer) As String
 
+        If startIndex + EndIndex > (text.Length - 1) Then Return text
+
         Dim pos As Integer = text.IndexOf(search, startIndex, IIf(startIndex + EndIndex > text.Length - 1, text.Length - startIndex - 1, EndIndex))
         If (pos < 0) Then Return text