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