Imports System

Public Module Module1

    Public Sub Main()

        Dim Array(4)

        For i = 0 to 4

        Console.WriteLine("Enter adress - Line " & i + 1)

            Array(i) = Console.ReadLine()

    Next

    Console.WriteLine(" ")

        For each i as String in array

        Console.WriteLine(i)

    Next

    End Sub

End Module