Я использую функцию, которая позволяет мне просматривать строку текста и оценивать, состоит ли она из букв. Он размещен в модуле под названием «Общие». Общий модуль существует только для размещения открытых функций и переменных. Код функции указан ниже:

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  

Затем у меня есть две процедуры «если», которые оценивают первые 2 символа текстового поля в моей пользовательской форме. Первая подпрограмма спрашивает, является ли первый символ числовым, а вторая подпрограмма спрашивает, является ли второй символ альфа. В настоящее время вторая подпрограмма «если» извлекает меня из подпрограммы, когда IsAlpha проверяет True, а не генерирует 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
            MsgBox "Incorrect DX Code format was entered. ", vbExclamation, "DX Code Entry"
            TxtDxCode.Value = ""
            TxtDxCode.SetFocus
            Exit Sub
        End If
    End With