' Reverse2 Example

' Write a function that inputs a string and returns
' the reversed string.  Test your function in the
' Main method.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim s As String = "elephant"

        WriteLine(Reverse(s))
        ReadLine()
    End Sub

    Public Function Reverse(ByVal s As String) As String
        Dim t As String = ""
        Dim i As Integer

        For i = 0 To s.Length - 1
            t = s.Substring(i, 1) & t
        Next
        Return t
    End Function
End Module