Ввести 4 слова, ввести 1 букву и обозначить слова, оканчивающиеся на эту букву - VB

Option Compare Text
Private Sub Command1_Click()
Dim mas
Do
    st = InputBox("Введите четыре слова")
    If st = Empty Then End
    mas = Split(st)
Loop Until UBound(mas) = 3
Do
    ch = InputBox("Введите букву")
    If ch = Empty Then End
Loop Until Len(ch) = 1 And Asc(ch) >= 192 And Asc(ch) <= 255
t = ""
For i = 0 To 3
    If Mid(mas(i), Len(mas(i)), 1) = ch Then t = t & mas(i) & vbCrLf
Next
If t = "" Then
    t = "нет слов оканчивающихся на " & ch
Else
    t = "На " & ch & " оканчиваются:" & vbCrLf & t
End if
MsgBox t
End Sub