小编Isa*_*ein的帖子

我正在使用一个函数,它允许我查看一串文本并评估它是否由字母组成.它位于一个名为"General"的模块中.通用模块仅用于容纳公共函数和变量.功能代码如下:

Public Function IsAlpha(strValue As String) As Boolean
Dim intPos As Integer

    For intPos = 1 To Len(strValue)
        Select Case Asc(Mid(strValue, intPos, 1))
            Case 65 To 90, 97 To 122
                IsLetter = True
            Case Else
                IsLetter = False
                Exit For
        End Select
    Next
End Function  

接下来,我有两个"if"例程,用于评估userform中文本框的前2个字符.第一个例程询问第一个字符是否为数字,第二个例程询问第二个字符是否为alpha.目前,当IsAlpha测试为True时,第二个"if"例程将我从子例程中弹出,而不是生成MsgBox.是否正确调用IsAlpha函数？

如果下面列出了例程代码:

Private Sub CmdMap_Click()

    With TxtDxCode
        If IsNumeric(Left(Me.TxtDxCode.Text, 1)) Then
            MsgBox "Incorrect DX Code format was entered. ", vbExclamation, "DX Code Entry"
            TxtDxCode.Value = ""
            TxtDxCode.SetFocus
            Exit Sub
        End If

        If IsAlpha(Left(Me.TxtDxCode.Text, 2)) Then …