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)
Console.ReadLine
End Sub
End Module