All pastes #93387 Raw Edit

Someone

public text v1 · immutable
#93387 ·published 2006-07-20 12:02 UTC
rendered paste body
Public Function IsAlpha(ByVal strToCheck As String) As Boolean
        Dim objAlphaPattern As New Regex("[a-zA-Z]")
        Return Not objAlphaPattern.IsMatch(strToCheck)
End Function