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