Do
            ReDim Preserve arr(5, i)
             pos1 = InStr(pos1 + 1, strSearchThis, Suchwort)
                If pos1 > 0 Then
                    ' Wort gefunden
          ' Es folgen 6 instr befehle die das ergebnis in arr(0, i) - (5,i) 
          ' speichern
 
i=i+1
 
Loop Until pos1 = 0

            Suchwort = rev & ";"
            Suchwortleer = rev & " "
            Suchwortabsatz = rev & "&"
 
            Do
                ReDim Preserve arr(5, i)
                pos1 = InStr(pos1 + 1, strSearchThis, Suchwort)
                posleer = InStr(posleer + 1, strSearchThis, Suchwortleer)
                posabsatz = InStr(posabsatz + 1, strSearchThis, Suchwortabsatz)
 
 
                If pos1 > 0 Then
                    ' Wort gefunden
                    XX = InStrRev(strSearchThis, "XX", pos1)
                    YY = InStr(XX, strSearchThis, "YY")
                End If
                If pos1 = 0 And posleer > 0 Then
                    ' Wort gefunden
                    XX = InStrRev(strSearchThis, "XX", posleer)
                    YY = InStr(XX, strSearchThis, "YY")
                End If
                If pos1 = 0 And posleer = 0 And posabsatz > 0 Then
                    ' Wort gefunden
                    XX = InStrRev(strSearchThis, "XX", posabsatz)
                    YY = InStr(XX, strSearchThis, "YY")
                 End If
 
' dann folgen die 6 Instr befehle
                i = i + 1
 
            Loop Until pos1 = 0