Use the concatenation operator for this:

Dim idx, idx2
idx = ValuesInInterval(Konzentration, 7,7,EVENT_INDEX)
For Each Value i In idx do  
   If Datensatz_mit_Zeichenkette == "gesuchter  Zeichensatz" Then    
      idx2 := i
   End
End
return idx2

support@weisang.com