SoloCodigo

Si le saco el "preserve" funciona perfecto, pero obviamente no me guarda los valores que tenia antes.

mira con tu codigo se borra los datos  supuestamente guardados en la matriz pero al poner asi como esta sale error pero al quitarle el "Preserve" si funciona pero tu problema seria q los datos se borran ya q al hacer un msgbox  ala matriz
MsgBox Matriz(6, 0) no sale por q se borraron los datos al redimensionar dentro del for
Dim Matriz() As String

Dim x As Integer

For x = 0 To 10
ReDim Preserve Matriz(x, 1)

Matriz(x, 0) = "col1 " & x
Matriz(x, 1) = "col2 " & x

----------------------------------------------------------------
provando pues creo q mejor seria q lo hicieras asi ya q los datos no se borrarian
Option Explicit
Dim Matriz() As String
Dim x As Integer

Private Sub Command1_Click()
ReDim Preserve Matriz(11, 1)
    For x = 0 To 10
       'ReDim Matriz(x, 1)
       Matriz(x, 0) = "col1 " & x
       Matriz(x, 1) = "col2 " & x
MsgBox Matriz(0, 0)
    Next
End Sub

espero q te sirva

a ver, en ves de cero a 10, usa Ubound(matriz) y Lbound(matriz)

Asi:

For x = Lbound(matriz) To Ubound(matriz)

recuerda tambien que el cero de la matriz existe y que en el incremento que tu haces no debe sumar una mas, en el for si lo hace, asi que redimensiona asi:

Redim Preserve Matriz(Ubound(Matriz)+1)

asi incrementas siempre solo sobre el final.

Espero eso te ayude. es un poco complejo, pero funciona bien una ves pillado.