Imports System

Public Module Module1               

    Public Sub Main()

​

        Dim FirstName as string

        Dim MiddleInitial as string

        Dim LastName as string

        Console.WriteLine("Enter your first name")

        Firstname = "Bethany"

        Console.WriteLine("Enter your middle initial")

        Middleinitial = "F"

        Console.WriteLine("Enter your last name")

        LastName = "Makin"

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

    End Sub

End Module