Option Compare Text
Public Class clsAscW
 
    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: 	AscW(char) 
        '
        ' Parameter1: char - char
        '
        ' Result: Integer - represents the character code that corresponds to a character
        '
        '***********************************************************
        '
        ' Syntax2: AscW(string)
        '
        ' Parameter1: string - string
        '
        ' Result: Integer - represents the character code that corresponds to the 
        ' first character in the string
        '
        ' *********************************************************
        '
        ' Quick Example: Dim intAsc as integer = AscW("T") ' Returns 84
        '
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	AscW(string)")
 
 
        Console.WriteLine(AscW("This is my string")) ' Returns 84
 
 
        '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 myclsAscW As New clsAscW
        myclsAscW.Main()
 
 
 
    End Sub
 
End Module