しかし
Dim str As String
For Each str In ar
Console.WriteLine(str)
Next

でやるとNewがあっても無くても目的の文字列が出ます