Public Class clsChars
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose: Gets the character at the specified index - index is 0 based
        '
        ' Syntax: 	myString.Chars(index)
        '
        ' Parameter1: myString - string
        '
        ' Parameter2: index - valid numeric expression
        '
        ' Result: Char - returns the charater at the specified index
        '
        ' *********************************************************
        '
        ' Quick Example:  Dim strCharsExample As String = "ABC"
        ' Console.WriteLine(strCharsExample.Chars(1)) ' Returns B
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: Chars(index)
        ' Gets the character at the specified index - index is 0 based
        '****************************************************************************************
 
        Console.WriteLine("Example #1: Chars(index) ")
 
        Dim strCharsExample As String = "ABC"
 
        ' Return Uppercase
        Console.WriteLine(strCharsExample.Chars(1)) ' Returns B
 
        '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 myclsChars As New clsChars
        myclsChars.Main()
 
 
 
    End Sub
 
End Module