Вывести на экран все строчные латинские символы - VB

Sub m_1()
Dim Текст As String
Dim i As Long
Dim Накопление As String
For i = 1 To Len(Текст)
    If Asc(Mid(Текст, i, 1)) > 96 And Asc(Mid(Текст, i, 1)) < 123 Then
        Накопление = Накопление & Mid(Текст, i, 1)
    End If
Next i
MsgBox Накопление
End Sub