Работа со строками в Visual Basic - VB

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

Ребят помогите не могу понять. Вот задание: Дана строка. Подсчитать количество букв k в последнем ее слове. Надо чтобы я ввел любое предложение в text1.text и мне в последнем слове буквы к посчитало. Спасибо большое!!!

Решение задачи: «Работа со строками в Visual Basic»

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

                            Option Explicit
Option Compare Text
Private Sub Text1_Change()
    Dim P As Long, Ct As Long, F As Boolean
    If Len(Text1.Text) = 0 Then Exit Sub
    P = Len(Text1.Text)
    Do While P > 0
        Select Case Mid$(Text1.Text, P, 1)
        Case " ", ",", ".", "-", "!", "?": If F Then Exit Do
        Case "k"
            Ct = Ct + 1
        Case Else
            F = True
        End Select
        P = P - 1
    Loop
    Me.Caption = Ct
End Sub
                        