Visual Basic - ayuda con actualizacion de vector

wenas gente, tengo un problema con un programilla, la cosa es que en una de las opciones que tiene, no me actualiza bien el vector cuando inserta nuevos datos, pego el codigo y si algien puede echarme una mano o necesita mas datos que avise.

gracias de antemano.

este es el proceso, el vector se declara en el principal, pero al visualizarlo no me salen los nuevos datos.
---------------------------------------------------------------------------------
Sub insertarvalor(ByRef v() As Integer, ByRef n As Integer)
Dim pos, nuevo, i, num As Integer




Console.WriteLine(" insertando valor ")
Console.WriteLine(" ..................")

Console.WriteLine(" en que posicion quieres insertar el nuevo valor? 0=salir")
num = Console.ReadLine
If num = 0 Then
Exit Sub
Else
Console.WriteLine(" valor nuevo")
nuevo = Console.ReadLine
Exit Sub
End If

num = num - 1
For pos = n - 1 To num Step -1
v(pos + 1) = v(pos)

Next

v(pos) = nuevo

n = n + 1

End Sub

pero so jilipoyas, si siempre estas saliendo del sub

que es lo que quieres que haga?

if loquesea exit sub
else exit sub

para ayudar de esa manera mejor vuelve a tu granja...

auna si fallo mio por no copiar bien el codigo desde visual, el programa visto asi no funcionaria pero mi problema era mas bien con el
"for pos=n-1 to num step -1", el resto dl codigo esta bien en visual.

pero ya encontre el problema gracias a gente con un poco de tacto para explicar las cosas.

ya encontraste el problema!!!! ju ju ju ju..........

auna la proxima procurar nor fallar el mio por no copiar bien....