Ejemplo de menu en programacion

Module Module1
    Dim noregistro As Short
    Structure empleado
        ' Declarar los miembros que almacenarán los datos
        Dim cedula As String
        Dim nombre As String
        Dim Sueldo As Double


    End Structure
   

    Sub Main()
        Pantalla()
        Console.ReadLine()
    End Sub

    Private Sub Pantalla()
        Console.Clear()

        Console.SetCursorPosition((80 - (Len("Instituto Politécnico Loyola"))) / 2, 1)
        Console.WriteLine("Instituto Politécnico Loyola")

        Console.SetCursorPosition((80 - (Len("809-528-4010"))) / 2, 2)
        Console.WriteLine("809-528-4010")

        Console.SetCursorPosition((80 - (Len("Nomina"))) / 2, 3)
        Console.WriteLine("Nomina")

        For i As Short = 0 To 79
            Console.SetCursorPosition(i, 4)
            Console.WriteLine("=")
        Next

        Console.SetCursorPosition((80 - (Len("Menú Principal"))) / 2, 6)
        Console.WriteLine("Menú Principal")
        Console.SetCursorPosition(10, 8)
        Console.WriteLine("[I] Insertar Un Nuevo Empleado")
        Console.SetCursorPosition(10, 10)
        Console.WriteLine("[V] Ver la lista de Empleados")
        Console.SetCursorPosition(10, 12)
        Console.WriteLine("[S] Salir de la aplicación")

        Console.SetCursorPosition(23, 24) ' Para posicionar el cursor
        Console.WriteLine("Los Datos Estan Correctos S/N [ ]")
        Respuesta(54, 24)



    End Sub
    Function Respuesta(ByVal L As Integer, ByVal T As Integer) As Char
        Dim lopcion As Char
        Dim tecla As ConsoleKeyInfo
        Do ' Mientras el usuario no introduzca S o N se estara ejecutando este ciclo
            Console.SetCursorPosition(L, T) ' Para posicionar el cursor
            tecla = Console.ReadKey()
            lopcion = tecla.KeyChar()
        Loop Until lopcion.ToString().Equals("I") Or lopcion.ToString().Equals("i") Or _
                   lopcion.ToString().Equals("V") Or lopcion.ToString().Equals("v") Or _
                   lopcion.ToString().Equals("S") Or lopcion.ToString().Equals("s")

        ' Limpiar el letrero que fue desplegado
        Console.SetCursorPosition(23, 24) ' Para posicionar el cursor
        Console.WriteLine("                                  ")
        Respuesta = lopcion
        Select Case Respuesta
            Case "I", "i"
                Console.Clear()
                insertar()
            Case "V", "v"