Data Structure VB.Net

Imports System
Imports System.Collections.Generic
Module Example
    Sub Main
        Dim numbers As New Queue(Of String)
        numbers.Enqueue("one")
        numbers.Enqueue("two")
        numbers.Enqueue("three")
        numbers.Enqueue("four")
        numbers.Enqueue("five")
        Dim queueCopy As New Queue(Of String)(numbers.ToArray())
        Console.WriteLine(vbLf & "Contents of the first copy:")
        For Each number As String In queueCopy
            Console.WriteLine(number)
        Next
        Dim array2((numbers.Count * 2) - 1) As String
        numbers.CopyTo(array2, numbers.Count)
        Dim queueCopy2 As New Queue(Of String)(array2)
        Console.WriteLine("Contents of the second copy, with duplicates and nulls:")
        For Each number As String In queueCopy2
            Console.WriteLine(number)
        Next
    End Sub
End Module