Excel VBA高级编程:查找一个字符串是否都是字母并且最后一个字符是否是“E”

:查找一个字符串是否都是字母并且最后一个字符是否是“E”

做qee用7楼的作业：

Sub T()
    Dim R$, W$, I%, J%, K%
    R = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    W = UCase(InputBox("请输入字符"))
    I = Len(W)
    J = 1 To I
        K = InStr(1, R, Mid(W, J, 1))
      '  MsgBox K
        If K < 1 Then
            MsgBox "你输入的字符含有非字母"
            Exit Sub
        End If
    Next
    If Right(W, 1) = "E" Then
    MsgBox "你输入的字符都是字母并且最后一个字符是“e”或者“E”"
    Else
    MsgBox "你输入的字符都是字母但最后一个字符不是“e”或者“E”"
    End If
End Sub