подсчитать количество слов в предложении

[Sv.]

Панель инструментов должна содержать объект типа msoControlEdit, по завершении ввода в котором должно выводиться сообщение о количестве слов в введенном предложении.

Всегда выводит ноль. Не могу понять в чем же дело

Private Sub Action1()
Dim txt As String
Dim char As String
Dim dlSlova As Integer
Dim kol As Integer
Set txtEdit = Application.CommandBars("TestCommandBar"). _
            FindControl(Type:=msoControlEdit, Tag:=5000)
            
 dlSlova = 0
kol = 0
For i = 1 To Len(txt)
char = Mid(txt, i, 1)
If char >= "A" And char <= "ÿ" Then
        dlSlova = dlSlova + 1
    Else
        If dlSlova > 0 Then kol = kol + 1
        dlSlova = 0
    End If
Next i
MsgBox ("Количество слов: " & kol)
End Sub

[IgorGO]

видимо, перед циклом не хватает еще такой конструкции:

txt = txtedit.Text

[Sv.]

IgorGO, спасибо) в этом и была вся проблема