Hola, alguien me ayuda por fis, el profe nos pidio que hicieramos en aplicacion de consola un arreglo para nombre y uno para apellido de 4 posiciones, en los cuales el usuario ingrese los datos, pueda ver un dato especifico o todos enlistados, tengo idea de como hacer el menu y lo ultimo pero para ingresar los datos, en vez dse ingresarlos todos ingresa 1 y se me devuelve al menu y no se porque, alguien por favor me ayuda
Tengo esto:
Sub ingresar()
Console.WriteLine("Ingrese nombre:")
Console.ReadLine()
Console.WriteLine("Ingrese apellido:")
Console.ReadLine()
Console.ReadKey()
Dim p As Integer
str_nombre(p) = Console.ReadLine
For p = 0 To 4
p = p - 1
Next
end sub
Sub menu()
Dim opcion As Integer
Console.WriteLine("menu elija una opcion")
Console.WriteLine("1) Ingreso de Datos")
Console.WriteLine("2) Visualizar Datos")
Console.WriteLine("4) Salir")
opcion = Console.ReadLine()

Select Case opcion
Case 1
Console.WriteLine("1") Ingreso de Datos")
ingresar()

' Console.Read()
Case 2
Console.WriteLine("2") Ingreso Registros")
Console.Read()

Case 3
Console.WriteLine("3") salir")
Console.Read()
End Select
Console.WriteLine("desea otra operacion s =si")
Console.Read()
Dim resp As Char
resp = Console.ReadLine()
If resp = "s" Then
menu()
Else
Salir()
End If
End Sub
No doy una con los arreglos por fis, necesito ayuda,
Gracias