Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop - VB

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

кому не лень, помогите решить задачу, самому разбираться времени нету, и так работы много.. само задание - Лаб.раб. № 5_ППП.doc нужно сделать 13 вариант.. код общего задания есть, но работает у меня почему то невсегда..

                    Листинг программы
                
Private Sub ForEachWord()
For Each oWord In ThisDocument.Words
MsgBox oWord.Text
Next
End Sub

Решение задачи: «Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop»

textual
                            Листинг программы 
                        
 
                            
                        
Sub Макрос1()
'Создание на пластинке оперативной памяти
'поименованной области (массива) myArray.
'1 To - означает, что нумерация элементов в массиве
'будет начинаться с 1 (так удобнее человеку).
'По умолчанию элементы массива нумеруются с нуля.
'Long означает, что в массиве могут быть только целые числа (а не дробные).
Dim myArray(1 To 10) As Long
'Создание на пластинке оперативной памяти
'поименованной области (переменной) i.
'Integer означает, что в переменной могут быть только целые числа (а не дробные).
Dim i As Integer
Dim Сумма As Long
'Заполнение массива числами.
'For ... To ... Next - называется циклом.
For i = 1 To 10
    'InputBox - инструмент VBA для помещения в массивы информации.
    myArray(i) = InputBox("Введите число для элемента массива")
    'If ... Then ... End If - используется для того, чтобы выбрать,
    'какое действие выполнить.
    'Mod - это инструмент VBA, который используется для того, чтобы
    'получить остаток от деления. Мысленно Mod можно заменить
    'знаком деления "/", только в данном случае мы получаем остаток от
    'деления, например, 5 / 2 = 2 и остаток от деления равен 5 - 4 = 1.
    'В данном случае 5 является нечётным числом, т.к. делится на 2 с остатком.
    'Если число делится на 2 без остатка, то число является чётным.
    'Пример чётного числа 4. 4 / 2 = 2. Остатка нет.
    If myArray(i) Mod 2 <> 0 Then
        Сумма = Сумма + myArray(i)
    End If
Next i
'MsgBox - это инструмент VBA для вывода на экран информации.
MsgBox "Результат сложения нечетных чисел " & Сумма
End Sub