IF TextBox1 = "" THEN
    MsgBox "Debe ingresar datos, de lo contrario no podrá continuar"
END IF
IF x < 10

numeros(x) = CInt(TextBox1.text)
MsgBox "Agrego valor"

x = x + 1
ELSE
MsgBox "No se pueden agregar mas valores"

END IF

END

PUBLIC SUB Button2_Click()
esto fue lo q te pase, entonces el algoritmo de la burbuja yo lo haria Asi

necesito dos FOR , uno para ir revisando, y el otro para ir llenando

FOR i = 1 TO 9
  FOR j = i + 1 TO 10
    IF numero(i) > numero(j) THEN
      y = numero(i)
      numero(i) = numero(j)
      numero(j) = y
    ENDIF
  NEXT j
NEXT i

FOR z = 0 TO 10
  List1.AddItem(numero(z))
NEXT z

al inicio i vale 1....pero para q i pase a 2, primero j va pasar de i + 1 osea de 2 hasta 10
luego se supone q cuando encuente el mayor de todos los valores lo va agregar a i = 1

en la siguiente va hacer lo mismo, y asi sucesivamente, y el i llega uno antes q el j porque
se supone q el ultimo numero q quede va a ser el mas grane va, entonces para q queres
volver a ordenarlo
 esta bien simple solo es de usar la logica asi rapida jejejejeje



y ese es todo el algoritmo de la burbula, si lo queres alrevez solo le
decis q cuando sea menor
ahora para mostrarlos en el ListBox...aqui le puse ListBox porque en linux asi se llaman

asi seria en Windows.Count....y con eso deberia funcionar jejejeje, es simple
osea q en el mismo boton iria asi

Ascendente, y en el descendente creo q ya ME entendiste como verdad