Imports System

Public Module Module1

    Public Sub Main()

        Dim studentnames(5) As String 

        Dim x As Integer 

        For x = 0 To 5

        Console.WriteLine("Please Enter Student Name.")

        studentnames(x) = Console.ReadLine()

        Next 

        Console.WriteLine("These are the student names.")

        For Each name In studentnames

        Console.WriteLine(name)

        Next

        Console.ReadLine

    End Sub

End Module