Visual Basic - menu en visual por consola

Hola ...
soy nueva aca y me gustaria saber quien me puede ayudar a hacer un menu de opciones en visual basic como aplicaciones en consola ...
ya hice varios modulos pero cuando elijo la opcion de mostrar los datos introducidos en la opcion 1 no me muestra nada...
cualquier colaboracion se las agradecere .... bye

¿ Y cuándo elijes la opcion de mostrar los datos introducidos en la opcion 1?

Es decir, ¿cual es el código que pones?

Muchas gracias por tu colaboracion .... ya encontre el error y lo corregi

Module Module1

Sub Main()
'Dim x As Integer
Console.Title = "sistema de procesamiento de notas"

menu()


Console.ReadKey()

End Sub

Sub menu()

Dim op As Integer

While 1
Console.Clear()
Console.SetCursorPosition(38, 1)
Console.WriteLine("MENU")

Console.SetCursorPosition(30, 3)
Console.WriteLine("1. Captura de datos")
Console.SetCursorPosition(30, 5)
Console.WriteLine("2.listado general")
Console.SetCursorPosition(30, 7)
Console.WriteLine("3.Listado aprovados")
Console.SetCursorPosition(30, 9)
Console.WriteLine("4. listado reaprobado")
Console.SetCursorPosition(30, 11)
Console.WriteLine("5. Mejores promedios")
Console.SetCursorPosition(30, 13)
Console.WriteLine("6. salir")
Console.SetCursorPosition(30, 16)
Console.WriteLine("Seleccione una opcion: ")
Console.SetCursorPosition(53, 16)
op = Console.ReadLine
Select Case op
Case 1 ' captura de datos
captura()
Case 2 ' listado general
listGeneral()
Case 3 'listado de los que ganaron
listGanaron()
Case 4
listPerdieron()
Case 5
listMejores(3)
Case 6
Console.Clear()
Console.WriteLine(" fin de la aplicacion.....gracias....")
Console.ReadKey()
Exit Sub
End Select
End While

End Sub
End Module

Exelente ejemplo sin embargo si tienes otros aportes te lo agradezco.
Es que tengo q aprender mega urgente y los ejemplos sin geneales.
Gracias