Dim mName,Search mName As String Dim mNumber As String Dim isFound As Boolean isFound=False Console.WriteLine(“Enter Member Name to search for:”) Search mName=Console.ReadLine FileOpen(1,”c:/Task/Member Data.txt”,OpenMode.Input) While Not EOF (1) And isFound=false Input(1,mName) Input(1,mNumber) If mName=Search mName Then isFound=True Console.WriteLine(“Member Name:”& mName) Console.WriteLine(“Membership Number:”& mNumber) End If End While FileClose(1) If isFound=False Then Console.WriteLine(“Record not Found”) Console.ReadKey()