Public Class clsUCase
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose: Returns a string or character in uppercase. 
        '
        ' Syntax: 	UCase(value)
        '
        ' Parameter1: value - Required - string that you want to put in uppercase
        '
        ' Result: string -  Returns a string or character in uppercase. 
        '
        ' Quick Example:      Dim strField As String = " This "
        ' Console.WriteLine("[" + Trim(strField) + "]") 'Returns [This] with spaces removed
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: UCase(value) - Returns a string or character in uppercase.
        '****************************************************************************************
 
        Console.WriteLine("Example #1: UCase(value) ")
 
        Dim strField As String = "This Is my string"
 
        Console.WriteLine(UCase(strField)) 'Returns THIS IS MY STRING
 
        '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 myclsUCase As New clsUCase
        myclsUCase.Main()
 
 
 
    End Sub
 
End Module