Imports System
Public Module Module1
Public Sub Main()
For i As Integer = 0 To &HfffF
Dim c As Char = convert.ToChar(i)
Dim s As Char = char.ConvertFromUtf32(i)
If Char.IsNumber(c) Then
Console.WriteLine("Char value {0:x} IsDigit() = {1}, IsNumber() = {2}, Other = {3}", i, Char.IsDigit(c), Char.IsNumber(c), s)
End If
Next i
End Sub
End Module