crear array bidimensional

Debes declarar la variable como bidimensional

dim mi_array(10,20) as variant

Espero te ayude

Atte

Claudio

"galtor" escribió en el mensaje
news:
Hola a todos

espero que me puedan ayudar.

Cómo puedo crear un array bidimensional que me ayude con lo siguiente:

Tengo un formulario de ventas donde necesito agregar que plan de
servicio está contratando un cliente y el alcance de este plan (con
dos combobox) y los voy agregando con un boton "agregar" a un ListBox
para verlos en pantalla y necesito que los valores de la lista se
graben en un rango de celdas (hoja planes, rango "B3:C n") al
concretar la venta.

Se me ocurrió que al momento de agregarlos a la lista se podrían ir
grabando en un array bidimensional para que al momendo de concretar la
venta se graben desde el array (¿o se puede desde el listbox? ¿como?)
-para el array: ¿si el cliente decide que no quiere un "plan x" de 5
que había seleccionado como lo puedo borrar para que sólo se graben
los 4 restantes en la venta?

Ojalá alguien me pueda ayudar, porque solamente me salen los array
unidimensionales pero por más que intento no me aprendo la estructura
de los multidimensionales.

mi codigo es así:

dim plan as String, alcance as String

Private Sub addPlanes_Click()
'Validar que los campos no estén vacíos
If plan.Text = "" Or alcance.Text = "" Then
MsgBox prompt:="CAPTURA DATOS PARA EL PLAN", Title:="ERROR"
plan.SetFocus
Exit Sub
End If
'Agrego los datos a la lista para verlos en pantalla
listaPlanes.AddItem plan.Text & ", " & SACoberturaPol.Text
'Limpio los campos para agregar más planes a la venta
plan.Text = ""
alcance.Text = ""
plan.SetFocus
End sub

Saludos a todos y gracias anticipadas