imports microsoft.visualbasic
console.writeline("Enter date DD/MM/YYYY")
ChosenDate = console.readline()
dim file as IO.StreamReader
file = New IO.StreamReader("")
dim found as boolean = false
dim lineFromFile As String
lineFromFile = file.ReadLine()
Dim parcedLine = lineFromFile.Split(" ")
If (parcedLine(0).Equals(ChosenDate)) Then
If parcedLine(1).ToLower().Equals("false") Then
Console.WriteLine("no discount")
Console.WriteLine("discount")
Loop While Not (found) Or Not (file.EndOfStream())
Console.WriteLine("date not found")