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())
        For Each number As String In queueCopy
            Console.WriteLine(number)
        Next
        Dim array2((numbers.Count * 2) - 1) As String
        numbers.CopyTo(array2, numbers.Count)
    End Sub
End Module