Const NUM_NAMES As Integer = 5
Dim stuNames(NUM_NAMES - 1) As String
For nameCount As Integer = 0 To stuNames.Length - 1
stuNames(nameCount) = Console.WriteLine("Enter student's first name:", "Students")
stuNames(nameCount) = Console.Readline
For nameCount As Integer = 0 To stuNames.Length - 1
Console.WriteLine.Items.Add(stuNames(nameCount))