Проход по всем словам, находящимся в переменной - VB

Формулировка задачи:

Здравствуйте, в переменную s текст попадает по коду:

Dim s As String
    'обрабатываемый текст в переменную
    s = Selection.Text

обрабатываю слова, находящиеся в переменной так:

  Dim Обрабатываемый_текст As Range
    'создать объект согласно обрабатываемому тексту в документе
    Set Обрабатываемый_текст = ActiveDocument.Range(Start:=Начало_обрабатываемого_текста_в_документе, End:=Конец_обрабатываемого_текста_в_документе)
 
    Dim Количество_обрабатываемых_слов_в_документе As Long
    Количество_обрабатываемых_слов_в_документе = Обрабатываемый_текст.Words.Count
  For u = 1 To Количество_обрабатываемых_слов_в_документе
......

Знаю, что

 'последовательный проход по коллекции итератором быстрее, чем обращение к произвольному элементу по индексу
        'For x In — переменная x называется итератором, объектом, в котором содержится ссылка на очередной элемент коллекции/массива
        'For x = — переменная x называется индексом, порядковым номером произволного элемента коллекции/массива

1. Это так? 2. Как пройтись в данном случае по словам переменной? через For Each u In каков код? Спасибо

Решение задачи: «Проход по всем словам, находящимся в переменной»

textual
                            Листинг программы 
                        

                            Sub test()
    Dim pc As New clPerformanceCounter
    Dim i%, wrd, wd$, Words_arr
    Words_arr = Split(ActiveDocument.Range.Text, " ")
    pc.Run "Перебор циклом For Each"
    For Each wrd In Words_arr
        wd$ = wrd ' очередное слово
    Next wrd
    pc.StopCounter
    pc.Run "Перебор циклом For i"
    For i% = 0 To UBound(Words_arr, 1)
        wd$ = Words_arr(i%) ' очередное слово
    Next i%
    pc.StopCounter
    Debug.Print "Слов: " & UBound(Words_arr)
End Sub
                        