Data Types VB.Net

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