tablas, combobox y listbox

[kokecola2k2]

Lo que necesito es:
poner un combobox como lista desplegable con 3 opciones
despues abajo poner un textbox, para meter un nombre, y que según la opcion elegida en el combobox se meta en una tabla, en su lugar correspondiente. Al tener el combobox 3 opciones, la tabla será de 3 dimensiones, asi que si elijo lo opcion 1, se mete en la dimension 1, si elijo la 2, se mete en la 2 y si elijo la 3 en la 3, y dspues se meta todo lo de la tabla en un listbox, todo esto apartir de un boton, como se haria?

[soplo]

Hola

poner un combobox como lista desplegable con 3 opciones

Código [Seleccionar] Expandir

sub main

  'poner las tres opciones al combo en caliente
  combo1.additem "Opcion 1"
  combo1.additem "Opcion 2"
  combo1.additem "Opcion 3"

end sub

despues abajo poner un textbox, para meter un nombre,

Código [Seleccionar] Expandir

sub Command1_Click
   'comprobar que hay un nombre escrito en el textbox
   if text1='"" then
      exit sub
   endif
   'comprobar que hay algo elegito en el combo
   if combo1.listindex=-1 then
      exit sub
   endif

Al tener el combobox 3 opciones, la tabla será de 3 dimensiones, asi que si elijo lo opcion 1, se mete en la dimension 1, si elijo la 2, se mete en la 2 y si elijo la 3 en la 3

Código [Seleccionar] Expandir

tabla(combo1.listindex)=text1
end sub

dspues se meta todo lo de la tabla en un listbox, todo esto apartir de un boton

Código [Seleccionar] Expandir

sub command2_click
   for x%=0 to ubound(tabla(combo1.listindex))-1
      list1.additem tabla(x%)
   next x%
end sub

Un saludo