meena dot tee ex tee

Module Module1
    Sub Main()
        Dim CloseMenu As Boolean
        Dim MenuChoice As Integer
        Dim SearchTerm As String
        Do
            Console.WriteLine("1 - Add a new assignment")
            Console.WriteLine("2 - Display all records")
            Console.WriteLine("3 - Sort by subject")
            Console.WriteLine("4 - Close Menu")
            MenuChoice = Console.ReadLine()

            Select Case MenuChoice
                Case 1
                    NewAssignment()
                Case 2
                    DisplayRecords()
                Case 3
                    Console.WriteLine("Enter subject: ")
                    SearchTerm = Console.ReadLine()
                    SubjectSearch(SearchTerm)
                Case 4
                Case Else
            End Select
        Loop Until CloseMenu
    End Sub
    Sub NewAssignment()
        Console.Clear()
        Console.Write("Enter subject: ")
        Dim SubjectName As String = Console.ReadLine.ToLower
        Console.Write("Enter title of test: ")
        Dim TestTitle As String = Console.ReadLine.ToLower
        Console.Write("Enter date of test (dd/mm/yyyy): ")
        Dim TestDate As Date = Convert.ToDateTime(Console.ReadLine())
        Dim TestString As String = SubjectName & "," &
        TestTitle & "," &
        TestDate
        FileOpen(1, "C:\Users\tfqsy\OneDrive\Desktop\meena.txt", OpenMode.Append)
        PrintLine(1, TestString)
        FileClose(1)
        Console.WriteLine("Test added!")
        Console.ReadLine()
    End Sub
    Sub DisplayRecords()
        Console.Clear()
        FileOpen(1, "C:\Users\tfqsy\OneDrive\Desktop\meena.txt", OpenMode.Input)
        Console.WriteLine(LineInput(1))
        FileClose(1)
    End Sub
    Sub SubjectSearch(Subject As String)
        FileOpen(1, "C:\Users\tfqsy\OneDrive\Desktop\meena.txt", OpenMode.Input)
        Dim AssignmentInfo() As String
        Dim SubjectFound As Boolean
        While Not EOF(1)
            AssignmentInfo = LineInput(1).Split(",")
            If AssignmentInfo(0).ToLower = Subject.ToLower Then
                Console.WriteLine("Assignment title: " & AssignmentInfo(1))
                Console.WriteLine("Assignment date: " & AssignmentInfo(2))
                SubjectFound = True
            End If
        End While
        If Not SubjectFound Then
            Console.WriteLine("Subject not found!")
        End If
        Console.ReadLine()
    End Sub
End Module