Public Class Application
	Public Shared Sub Main()
	
		Dim Names as String() = {"Ben", "Thor", "Zoe", "Kate"}
		Dim Max as Integer = 4
		Dim Current as Integer = 1
		Dim Found as Boolean = false
	
		Console.WriteLine("What player are you looking for?")
		
		Dim PlayerName as String = Console.ReadLine()
		
		While (Found = false) AND (Current <= Max)
			If Names(Current-1) = PlayerName Then 
				Found = true
			Else 
				Current = Current + 1
			End If
		End While
		
		IF Found = True THEN 
			Console.WriteLine("Yes, they have a top score")
		ELSE 
			Console.WriteLine("No, they do not have a top score")
		END If
	End Sub
End Class