Imports System

Public Module Module1

    Public Sub Main()

        dim max as integer

        dim found as boolean

        dim name() as array

        dim name as string

        max = 5

        found = false

        console.writeline("Input a name")

        name = console.readline()

    For count 0 to max

        if name(count) = name

            console.writeleine("Record" & count +1)

            found = True

        End If

    Next count

    If found = false then

        console.writeline("Search name not found")

    End Sub

End Module