TAB

Module Module1

    Sub Main()

        Dim tab(3) As Integer

        For a As Integer = 0 To 3

            tab(a) = Console.ReadLine

        Next

        For a As Integer = 0 To 4

            Console.Write("" & tab(a))

        Next

        Console.Read()

    End Sub

End Module

SOURCE