Задачи по visual basic - VB

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

Привет всем. Помогите пожалуйста решить задачу в visual basic:дана строка-предложение. Определить количество букв в каждом слове.

Решение задачи: «Задачи по visual basic»

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

                            <font color="blue">Dim</font> WA <font color="blue">As</font> <font color="blue">Object</font>, Wrd <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> WA = CreateObject(<font color="teal">"Word.Application"</font>)
<font color="blue">With</font> WA.Documents.Add
  .Range.InsertAfter <font color="teal">" Это   пример, запомните, это  Пример... "</font>
  <font color="blue">For</font> <font color="blue">Each</font> Wrd <font color="blue">In</font> .Range.Words
    Debug.<font color="blue">Print</font> Len(Wrd), Wrd
  <font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">With</font>
WA.Quit False
<font color="blue">Set</font> WA = <font color="blue">Nothing</font>
                        