pinvoke.net: Edit: user32.IsCharAlpha

@msdn=http://search.microsoft.com/search/results.aspx?qu=$$$
@pinvoke=http://pinvoke.net/$$$.htm

Summary: The IsCharAlphaNumeric API

!!!!C# Signature:
 [DllImport("user32.dll")]
 static extern bool IsCharAlphaNumeric(char ch);
!!!!User-Defined Types:
None.

!!!!Notes:
None.

!!!!Tips & Tricks:
Please add some!

!!!!Sample Code:
Please add some!
  Option Explicit
'
Public Declare Function IsCharAlphaNumericW Lib "user32" (ByVal cChar As Long) As Long

Public Function StripSpecialCharacters(ByVal strChainToStrip As String) As String
' Purpose: stript the string from non-letter characters and replace by spaces

Dim strOrigString As String
Dim strChar As String
Dim strNewString As String
Dim lngLen As Long
Dim lngCtr As Long
Dim lngCtr2 As Long

lngLen = Len(strChainToStrip)
'create buffer

strOrigString = Space$(lngLen)
strOrigString = strChainToStrip
strNewString = strOrigString
lngCtr2 = 1

'browse string
For lngCtr = 1 To lngLen
    strChar = Mid(strOrigString, lngCtr, 1)
    
    'Check if char is alphanumeric with userlib function
    If IsCharAlphaNumericW(AscW(strChar)) = 1 Then
        Mid(strNewString, lngCtr2, 1) = strChar
        lngCtr2 = lngCtr2 + 1
    Else
    'if not replace by a space
        Mid(strNewString, lngCtr2, 1) = " "
        lngCtr2 = lngCtr2 + 1
        
    End If
    
Next

If lngCtr2 > 1 Then
    strNewString = Left(strNewString, lngCtr2 - 1)
Else
    strNewString = ""
End If

StripSpecialCharacters = strNewString
End Function

!!!!Alternative Managed API:
char.IsNumber('1');

Documentation: IsCharAlphaNumeric@msdn on MSDN