Imports System

Public Module Module1

    Public Sub Main()

        dim strName as String = "Zachary"

        dim strRevName as String = ""

        For intx as integer = strName.Length -1 To 0 Step -1

        strRevName + = strName(intx)

    Next

    Console.WriteLine(strRevName)

    End Sub

End Module