Public Class clsStrReverse
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose: returns a string with the characters of the 
        ' string in reverse order 
        '
        ' Syntax: 	StrReverse(string)
        '
        ' Parameter1: string - Required - string that you want to reverse
        '
        ' Result: string -  returns a string with the characters of the 
        ' string in reverse order 
        '
        ' Quick Example:      Dim strString1 As String = "Hello World"
        ' Console.WriteLine(StrReverse(strString1)) 'Returns dlroW olleH
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: 	StrReverse(string) - returns a string with the characters of the 
        ' string in reverse order
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	StrReverse(string) ")
 
        Dim strString1 As String = "Hello World"
 
        Console.WriteLine(StrReverse(strString1)) 'Returns dlroW olleH
 
 
        '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 myclsStrReverse As New clsStrReverse
        myclsStrReverse.Main()
 
 
 
    End Sub
 
End Module