Imports System

​

Public Module Module1

    Public Sub Main()

        Dim inputName As String

        Dim letter As Char

        Dim outputName As String = ""

        Console.Write("Please enter a name: ")

        inputName = console.ReadLine()

        inputName = inputName.ToLower()

        For i As Integer = inputName.Length -1 to 0 Step -1

            letter = inputName.Chars(i)

            outputName &= letter & " "

        Next i 

    Console.WriteLine(outputName)

    End Sub

End Module

​