Visual Basic - arreglo de numeros en forma ascendente con list

bueno amigos un saldudo a todos y espero me puedan ayudar tengo que hacer un programa que en un solo listbox se debe presentar un arreglo de una cantidad de numeros los que quiera no tiene limite , y guardarlos hay 3 botones y un combobox un boton que se llama mostrar arreglo uno que se llama guardar y otro de salir , la cuestion es que al guardar los numeros en el combobox elijo la opcion y luego presiono mostrar arreglo en un solo listbox aqui adjunto el codigo porque el problema es que me muestra el ultimo valor en cero no se en que estare fallando

Private Sub Form_Load()
Combo1.AddItem "Ascendente"
Combo1.AddItem "Descendente"
End Sub

Private Sub Guardar_Click()
ReDim Preserve numar(i + 1)
numar(i) = Val(Text1.Text)
i = i + 1
Text1.Text = " "
Text1.SetFocus

End Sub

Private Sub PreA_Click()
Guardar.Enabled = False
Text1.Enabled = False
For j = 0 To i - 1

Next j

If Combo1.Text = "Ascendente" Then
For k = 0 To i - 1
If numar(k) > numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If

If Combo1.Text = "Descendente" Then
For k = 0 To i - 1
If numar(k) < numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If
End Sub

Private Sub Salir_Click()
End
End Sub

Hola Ramon
tu problema puede ser este
For j = 0 To i - 1
For k = 0 To i - 1
se hace un ciclo de 0 a i
que es i en preA

puedes agregar esto
Dim j As Integer
Dim k As Integer
Dim y As Integer
Dim i as Integer

Private Sub PreA_Click()
Guardar.Enabled = False
Text1.Enabled = False
For j = 0 To i - 1

Next j

If Combo1.Text = "Ascendente" Then
For k = 0 To i - 1
If numar(k) > numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If

If Combo1.Text = "Descendente" Then
For k = 0 To i - 1
If numar(k) < numar(k + 1) Then
y = numar(k + 1)
numar(k + 1) = numar(k)
numar(k) = y
End If
List1.AddItem "Valor " & numar(k)
Next k
End If
End Sub

Viejo seria posible que me dieras tu correo para preguntarte mejor el proyecto lo tengo que llevar el lunes un saludo