CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to check if a string contains only Alphabetical Characters
Option Explicit
 
Public Function IsAlphaBetical(sExpression As String) As Boolean
'Returns True if all characters in a string are alphabetical
'Returns False otherwise or for empty string
    Dim sTemp As String
    Dim iLen As Integer
    Dim iCount As Integer
    Dim sChar As String
 
    sTemp = sExpression
    iLen = Len(sTemp)
    If iLen > 0 Then
        For iCount = 1 To iLen
            sChar = Mid(sTemp, iCount, 1)
            If Not sChar Like "[A-Za-z]" Then Exit Function
        Next
        IsAlphaBetical = True
    End If
End Function