Imports System          

Public Module Module1

    Public Sub Main()

        Dim FirstName as String

        Dim LastName as String

        Dim MiddleInitial as String  

        Console.WriteLine("Enter your First name")

        FirstName = Console.ReadLine()

        Console.WriteLine("Enter your Middle Initial")

        MiddleInitial = Console.ReadLine()

        Console.WriteLine("Enter your Last Name")

        LastName = Console.ReadLine()

        Console.WriteLine("Your full name is " & Firstname & " " & MiddleInitial & " " & LastName)

    End Sub

End Module