Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim A as string = " "

        dim P as string = " "

        dim R as string = " "

        dim M as string = " "

        dim I as string = " "

        Console.WriteLine("Enter your five best friends' names.")

         Console.WriteLine("Enter first friend.")

           A=Console.ReadLine()

         Console.WriteLine("Enter second friend.")

          P=Console.ReadLine()

         Console.WriteLine("Enter third friend.")

          R=Console.ReadLine()

         Console.WriteLine("Enter fourth friend.")

          M=Console.ReadLine()

         Console.WriteLine("Enter fifth friend.")

          I=Console.ReadLine()

        Console.Write("My friends are: ")

        Console.WriteLine(A+", "+P+", "+R+", "+M+" and "+I)

        Console.WriteLine("I love them all very much.")

    End Sub

End Module

​