Как сделать так чтобы консоль не закрывалась, а продолжала работу

Module Module1
    Dim Pu As String = "1.txt"
    Dim B, F1 As String
    Dim A As New List(Of String)
 
    Sub Main()
        If IO.File.Exists(Pu) = False Then
            IO.File.Create(Pu)
            End
        End If
 
        A = IO.File.ReadAllLines(Pu, System.Text.Encoding.Default).ToList
        For i = 0 To A.Count - 1
            Console.WriteLine(A(i))
        Next
        Console.WriteLine()
        Console.Write("Введите 1-для добавления 2-для поиска 3-прошедшие ")
        B = Console.ReadLine()
        If B = "1" Then
            Vvod()
        ElseIf B = "2" Then
            POISK()
        ElseIf B = "3" Then
            PR()
        Else
            Console.WriteLine("Неверный ввод ")
        End If
        Console.WriteLine()
        Console.ReadLine()
        Console.ReadKey()
 
    End Sub
 
    Sub PR()
        Dim F6 As String
        Console.Write("Введите проходной балл ")
        F6 = Console.ReadLine()
        Console.WriteLine()
        For i = 0 To A.Count - 1
            Dim d() As String = Split(A(i), " ") 'разбиваем строку на слова
            If Val(d(d.Count - 1)) >= Val(F6) Then
                Console.WriteLine(A(i))
            End If
        Next
    End Sub
 
    Sub Vvod()
        Dim F2, F3, F4, F5 As String
        Do
            Console.Write("Введите Ф.И.О (точка для выхода) ")
            F1 = Console.ReadLine()
            If F1 = "." Then Exit Do
            Console.Write("Введите оценку по русскому языку ")
            F2 = Console.ReadLine()
            Console.Write("Введите оценку по математике ")
            F3 = Console.ReadLine()
            Console.Write("Введите оценку по физики ")
            F4 = Console.ReadLine()
            Dim Sum As Integer = Val(F2) + Val(F3) + Val(F4)
            F5 = (F1 & " русский язык= " & F2 & " математика= " & F3 & " физика= " & F4 & " сумма= " & Sum)
            A.Add(F5) ' добавляем в список
        Loop
        IO.File.WriteAllLines(Pu, A, System.Text.Encoding.Default)
    End Sub
 
    Sub POISK()
        Dim N As Integer
        Console.Write("Введите Ф.И.О для поиска ")
        F1 = Console.ReadLine()
        N = Len(F1)
        For i = 0 To A.Count - 1
            If Strings.Left(A(i), N) = F1 Then
                Console.WriteLine(A(i))
                Exit For
            End If
        Next
    End Sub
End Module

while (true)
{
 
}