Public Class Tester Public Shared Sub Main Dim result As New System.Text.StringBuilder Dim counter As Integer Dim testChar As Char Dim testHex As String
For counter = 0 To 127
testChar = Chr(counter)
testHex = "\x" & Hex(counter)
If Char.IsPunctuation(testChar) Then _
result.AppendLine(testHex & " IsPunctuation") If Char.IsSeparator(testChar) Then _
result.AppendLine(testHex & " IsSeparator") If Char.IsSymbol(testChar) Then _
result.AppendLine(testHex & " IsSymbol") If Char.IsUpper(testChar) Then _
result.AppendLine(testHex & " IsUpper") If Char.IsWhiteSpace(testChar) Then _
result.AppendLine(testHex & " IsWhiteSpace")