Слова заканчиваются на заданую букву - VBA

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

Доброго времени суток! Помогите, пожалуйста, доработать. Нужно найти все слова , что заканчиваються на заданную букву, проблема том, что мой вариант склеивает все слова, что стоят после первых, какие заканчиваються на заданую букву Private Sub CommandButton3_Click() Dim sl, a As String Dim f_l As String Dim l_l As String Dim i As Integer a = (InputBox("input text")) & " " sl = "" last_l = (InputBox("input last letter")) For i = 1 To Len(a) If Mid(a, i, 1) <> " " Then sl = sl + Mid(a, i, 1) Else If Mid(sl, Len(sl), 1) = l_l Then MsgBox sl sl = "" End If End If Next i End Sub

Решение задачи: «Слова заканчиваются на заданую букву»

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

                            Sub слова()
Dim s$, el
s = (InputBox("input text")) & " "
last_l = (InputBox("input last letter"))
For Each el In Split(s)
If Right(el, 1) Like last_l Then MsgBox el
Next
End Sub
                        