Imports System
Module GetUnicodeCategorySample
Sub Main()
Dim ch2 As Char
ch2 = "2"c
Dim str As String
str = "Upper Case"
Console.WriteLine(Char.GetUnicodeCategory("a"c))
Console.WriteLine(Char.GetUnicodeCategory(ch2))
Console.WriteLine(Char.GetUnicodeCategory(str, 6))
End Sub
End Module