Imports System

Public Module Module1

    Public Sub Main()

        Dim strFirstName as String

        Dim strLastName as String

        Dim strFullName as String

        Dim x as Integer = 0

        Console.WriteLine("Enter your first name.")

        strFirstName = Console.ReadLine()

        Console.WriteLine("Enter your last name.")

        strLastName = Console.ReadLine() 

        strFullName = strFirstName & " " & strLastName

        DO WHILE x <= 10

            Console.Writeline( strFullName )

            x= x + 1

        LOOP

    End Sub

End Module