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

        WHILE x <= 10

            Console.WriteLine(strFullName)

            x = x + 1

        END WHILE

        End Sub

End Module