[RESUELTO]Mostrar directorio completo en una matriz multidim

[Basedw]

Estoy aprendiendo Ooo Basic con el método de Mauricio Baeza. Me está gustando aunque creo que necesita corregir la redacción. Muestra un ejemplo de matriz multidimensión y propone un ejercicio de completar el macro de forma que muestre el directorio completo. Sólo he conseguido que vaya apareciendo una de las dos columnas. Agradecería una ayuda.

Option Explicit

Sub Matrices_Multidimension4
Dim mDirectorio( 0, 1 ) As String
Dim Nombre As String
Dim Telefono As String
Dim iContinuar As Integer
Dim co1 As Integer
Dim sTmp As String

Do
Nombre = Trim( InputBox( "Escribe un nombre", "Nombre" ) )
Telefono = Trim( InputBox( "Ahora su teléfono", "Teléfono" ) )
'Redimensionamos la matriz, pero OJO, solo la primer dimensión
Redim Preserve mDirectorio( co1, 1 )
'Guardamos los datos en el nuevo indice
mDirectorio( co1, 0 ) = Nombre
mDirectorio( co1, 1 ) = Telefono
'Vamos construyendo nuestro directorio
sTmp = sTmp & "El teléfono de " & mDirectorio( co1, 0 ) & " es " & mDirectorio( co1, 1 ) & Chr(13)
'Incrementamos nuestro contador de registros
co1 = co1 + 1
'Preguntamos si desea continuar
iContinuar = MsgBox( "¿Deseas capturar mas datos?", 4 + 32, "Continuar" )
Loop While iContinuar = 6

For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
MsgBox mDirectorio( co1, 1 ), 64, "El directorio"
Next

End Sub

[mriosv]

Bienvenido(a) al foro Basedw.

Espero que alguien te pueda contestar pronto.

Si crees que el libro necesita alguna corrección, lo menos que puedes hacer es indicar cual, para que su autor pueda contrastar si efectivamente es necesaria.

[Basedw]

Gracias mriosv.
En cuanto a las correcciones, espero poder enviar en un futuro todas ellas juntas.

[fornelasa]

Hola, se supone que solo deberias agregar esta linea:
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"

aqui:

For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"
MsgBox mDirectorio( co1, 1 ), 64, "El directorio"
Next

Saludos, Federico.

[Basedw]

RESUELTO
Muchas gracias, Federico. Efectivamente así se muestra todo el directorio.
Estoy comenzando en este leguaje de programación y todavía me resulta complicado.