怎么取字符串里的英文字母

这是查到别的前辈的帖子，但如何运用不是很懂。

   Dim lngI As Long
    Dim strText As String
    Dim strTemp As String
    Dim strChar As String
    strText = Nz(Me.txttest)
    For lngI = 1 To Len(strText)
        strChar = Mid$(strText, lngI, 1)
        If strChar Like "[A-z]" Then
            strTemp = strTemp & strChar
        End If
    Next
    MsgBox "您提取的字母为：" & strTemp