For i = 1 To mAnzahlVorkommen
 
tbSammlung.MoveFirst
mAusgabeText = ""
 
    'Falls es Suchergebnisse gibt, soll das aktuelle (i) ausgewählt werden
    If Split(mWortpositionen, " ")(i) <> "" Then
        mWortpositionAktuell = CInt(Split(mWortpositionen, " ")(i))
    End If
 
    'Die jeweiligen Suchergebnisse sollen ausgegeben werden
    Do While Not tbSammlung.EOF
        If tbSammlung!Index >= (mWortpositionAktuell - 5) And _
          tbSammlung!Index <= (mWortpositionAktuell + 5) Then
            mAusgabeText = mAusgabeText & " " & tbSammlung!Wort
        End If
        tbSammlung.MoveNext
    Loop
 
    lstSuchergebnisse.AddItem i & ":" & " " & mAusgabeText
 
Next i