Data Structure VB.Net

Imports System
Public Class MainClass
    
    Shared Sub Main()
     Dim intArray(  ) As Integer
     Dim empArray(  ) As Employee
     intArray = New Integer(5) {}
     empArray = New Employee(3) {}
     'populate the array
     Dim i As Integer
     For i = 0 To empArray.Length - 1
         empArray(i) = New Employee(i + 5)
     Next i
     Console.WriteLine("The Integer array...")
     Dim intValue As Integer
     For Each intValue In intArray
         Console.WriteLine(intValue.ToString(  ))
     Next
     Console.WriteLine("The Employee array...")
     Dim e As Employee
     For Each e In empArray
         Console.WriteLine(e)
     Next
    End Sub
End Class
 Public Class Employee
     Private empID As Integer
     'constructor
     Public Sub New(ByVal empID As Integer)
         Me.empID = empID
     End Sub
 End Class