Module Module1

    Sub Main()
        Dim Array1 As String() = Split("01 02 03 04 05 06 07 08 09 10 11 12")
        Dim Result = Array1.Where(Function(s, i) i Mod 3 = 0)
        For Each s In Result
            Console.Write("{0} ", s)
        Next
        Console.ReadKey()
    End Sub

End Module