Public Class clsToUpper
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose:  Returns a string or character in uppercase.
        '
        ' Syntax: 	strToBeUppered.ToUpper
        '
        ' Parameter1: strToBeUppered - Required - string to be converted to uppercase
        '
        ' Result: string - Returns a string or character in uppercase. 
        '
        ' Quick Example:  Dim strToUpperExample As String = "This is a test string"
        ' Return Uppercase
        ' Console.WriteLine(strToUpperExample.ToUpper)
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: ToUpper
        ' Returns the string in Uppercase
        '****************************************************************************************
 
        Console.WriteLine("Example #1: ToUpper ")
 
        Dim strToUpperExample As String = "This is a test string"
 
        ' Return Uppercase
        Console.WriteLine(strToUpperExample.ToUpper)
 
        '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 myclsToUpper As New clsToUpper
        myclsToUpper.Main()
 
 
 
    End Sub
 
End Module