Imports System

Public Module Module1

    Public Sub Main()

        dim a as string = ""

        dim b as string = ""

        dim c as string = ""

        dim d as string = ""

        dim e as string = ""

        dim f as string = ""

        dim g as string = ""

        dim h as string = ""

        Console.WriteLine("enter you friends name")

        Console.WriteLine("enter friend 1")

        a=Console.ReadLine()

        Console.WriteLine("enter friend 2")

        b=Console.ReadLine()

        Console.WriteLine("enter friend 3")

        c=Console.ReadLine()

        Console.WriteLine("enter friend 4")

        d=Console.ReadLine()

        Console.WriteLine("enter friend 5")

        e=Console.ReadLine()

        Console.WriteLine("enter friend 6")

        f=Console.ReadLine()

        Console.WriteLine("enter friend 7")

        g=Console.ReadLine()

        Console.WriteLine("enter friend 8")

        h=Console.ReadLine()

        console.WriteLine("my friends are:")        

        console.WriteLine(a+","+b+","+c+","+d+","+e+","+f+","+g+","+H)

        End Sub

End Module