Public Function IsAlpha(ByVal strToCheck As String) As Boolean
        Dim objAlphaPattern As New Regex("[a-zA-Z]")
        Return Not objAlphaPattern.IsMatch(strToCheck)
End Function