Работа с текстом

Sub m_1()
'Создание на пластинке оперативной памяти
'поименованной области (массива) Предложение.
'String означает, что в переменной Предложение может находиться только текст.
Dim Предложение() As String
'Создание на пластинке оперативной памяти
'поименованной области (переменной) НомерСлова.
'Long означает, что в переменной НомерСлова могут находиться только целые числа.
Dim НомерСлова As Long
'Помещение в переменную Предложение текста.
'InputBox - инструмент VB для ввода в переменные данных.
'Split - инструмент VB для создания из строки массива.
'" " - означает, что массив будет формироваться на основе пробела между словами.
'Например, если предложение представляет из себя: компьютерная программа,
'то в первый элемент массива попадёт слово "компьютерная",
'а во второй элемент массива попадёт слово "программа".
Предложение() = Split(InputBox("Введите предложение"), " ")
'Помещение в переменную НомерСлова номера слова,
'которое нужно отобразить на экране.
НомерСлова = InputBox("Введите порядковый номер слова, которое нужно вывести на экран")
'MsgBox инструмент VBA для вывода на экран информации.
'Минус один - потому что нумерация элементов массива начинается с 0
'(так запрограммировано). Например, если нам нужно вывести на экран
'первое слово предложения, то элемент массива с порядковым номером 1,
'будет второе слово в предложении. Например, есть предложение:
'компьютерная программа. В нулевой элемент массива попадёт слово
'"компьютерная", а в первый элемент массива попадёт слово "программа".
MsgBox Предложение(НомерСлова - 1)
End Sub