, ASCII, , - 32 126 (127 = - "" ).
..
Public Module StringExtensions
<Extension()>
Public Function IsASCII(inString As String, Optional bPrintableOnly As Boolean = True) ' 127 = Delete (non-printing) < 32 = control characters also, non-printing
Dim lowerLimit As Int32 = If(bPrintableOnly, 32, 0)
Dim upperLimit As Int32 = If(bPrintableOnly, 127, 128)
For Each ch In inString.ToCharArray()
If Not Asc(ch) < upperLimit OrElse Asc(ch) < lowerLimit Then
Return False
End If
Next
Return True
End Function
End Module