Imports System

Public Module Module1

    Public Sub Main()

        dim name(4) as string

        for i = 0 to 4

            console.writeline("Please enter a name: " & i+1)

            name(i) = console.readline()

        next

        for i = 0 to 4

    console.writeline(i + 1 & " = " & name(i))

        next

    End Sub

End Module