Разбить текст на слова и произвести поиск каждого слова по текстовому массиву

[Burning_brook]

По-порядку.

Дано:
1 - Предложение из нескольких слов с разделителями в виде точки и запятой.
2 - Несколько ячеек, заполненных подобными же предложениями.

Задача:
Проверить каждое слово из первого предложение на совпадение со словами текста. Вывести все предложения, в которых есть хотя бы одно совпадение.

Примерно как решить представляю так:
1 - разбиваем первое предложение на слова (например при помощи split, но не знаю, как туда воткнуть разные разделители)
2 - найти совпадения при помощи, например, find
3 - вывести найденные предложения в виде столбца текстовых ячеек.

Но пока само решение не складывается Возможно потому, что никогда поиском посредством макросов не занималась. Помогите, плиз...

[motorway]

1. Вот пример разбития строки по разделителю (в виде пробела):

a = Split("piece1 piece2 piece3", " ")
MsgBox (a(0))

[EducatedFool]

Sub test()
    Предложение = "Предложение. из нескольких,слов с разделителями.в виде ,точки и запятой."

    ' меняем все точки и запятые на пробелы:
    Предложение = Replace(Предложение, ",", " "): Предложение = Replace(Предложение, ".", " ")
    Предложение = Application.Trim(Предложение)    ' убираем лишние (в т.ч. двойные) пробелы

    Dim cell As Range, ra As Range
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells    ' перебираем все предложения в первом столбце
        txt = " " & Replace(Replace(cell, ",", " "), ".", " ") & " "
        For Each word In Split(Предложение, " ")    ' перебираем все слова в нашем предложении
            If txt Like "* " & word & " *" Then MsgBox cell: Exit For    ' выводим предложение
        Next word
    Next cell
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...0__4-01-03.zip