Module Module1

    Sub Main()
        Dim num As Integer = 0
        num = Asc("c")
        Console.WriteLine(" value:{0}", num)
    End Sub

End Module