Dim achrWerte() As String
    Dim chrErg As String
 
    ReDim achrWerte(0 To 5, 1 To 2)
 
    chrErg = ""
 
    achrWerte(0, 1) = "Glucose"
    achrWerte(1, 1) = "Mannose"
    achrWerte(2, 1) = "Glucose"
    achrWerte(3, 1) = "Fucose "
    achrWerte(4, 1) = "Glucose"
    achrWerte(5, 1) = "Mannose"
 
    Dim i As Integer
    For i = LBound(achrWerte, 1) To UBound(achrWerte, 1)
 
        If InStr(1, chrErg, achrWerte(i, 1), vbTextCompare) = 0 Then
            chrErg = chrErg & achrWerte(i, 1) & "|"
        End If
 
    Next
 
    Debug.Print chrErg