Option Compare Text
Public Class clsAsc
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose: Returns an Integer value representing the 
        ' character code corresponding to a character - if 
        ' string is used only first character is evaluated.
        '
        ' Syntax: 	Asc(char)
        '
        ' Parameter1: char - char
        '
        ' Result: Integer - represents the character code that corresponds to a character
        '
        '***********************************************************
        '
        ' Syntax2: Asc(string)
        '
        ' Parameter1: string - string
        '
        ' Result: Integer - represents the character code that corresponds to a character
        '
        ' *********************************************************
        '
        ' Quick Example: Dim intAsc as integer = Asc("T") ' Returns 84
        '
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	Asc(string)")
 
 
        Console.WriteLine(Asc("This is my string")) ' Returns 84
 
        Dim intAsc As Integer = Asc("T") ' Returns 84
        Console.WriteLine(intAsc)
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
 
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsAsc As New clsAsc
        myclsAsc.Main()
 
 
 
    End Sub
 
End Module