How can I check if a string only contains letters?

Question

I\'m using a function that allows me to review a string of text and evaluate if it is composed of letters. It is housed in a module called \"General\". The general module

Answer 1

Try this for IsAlpha

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
                IsAlpha = True
            Case Else
                IsAlpha = False
                Exit For
        End Select
    Next
End Function