Matt help!

        'fetching the first block
        'get the boundries of the first block
        Dim SOBlock, EOBlock As Integer
        SOBlock = InStr(Condition, "|")
        EOBlock = InStr(SOBlock + 1, Condition, "|")

        'trimmings starts off by holding the bit that will be used this time and then ...
        '...holds the sentence with that particular trimming in
        Dim trimmings() As String = cut(Mid(Condition, SOBlock, EOBlock - SOBlock))
        For i = 0 To trimmings.GetLength(0) - 1
            trimmings(i) = stich(trimmings(i), Condition, SOBlock, EOBlock)
        Next