Dim str As String = "Hallo ich bin Fokor und finde, dass in diesem Forum sehr" & _
  "nette Leute sind. Diese kennen sich wunderbar mit vb.NET aus."
Dim wlist As New List(Of String)(str.Split(" "c))
Dim pos As Int32 = wlist.IndexOf("sind.")
Dim sb As New System.Text.StringBuilder
        For j As Integer = pos - 5 To pos
            sb.Append(wlist(j) & " ")
        Next
MessageBox.Show(sb.ToString)