LINQ VB.Net

Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
   Public Shared Sub Main
        Dim numbers = New Integer() {1, 2, 3, 4}
        Dim stringNames = New String() {"one", "two", "three", "four"}
        Dim textNums = From num In numbers _
                       Select stringNames(num)
        Console.WriteLine("Number strings:")
        For Each s In textNums
            Console.WriteLine(s)
        Next
   End Sub
End Class