Visual Basic - arrays

Me gustaria saber como utilizando el "redim preserve" se puede redimensionar una matriz pero no a un numero fijo que eso si lo he conseguido si no usando el "ubound" de manera que el limite superior de la matriz vaya aumentando en uno.Probablemente sea una tonteria pero agradeceria una respuesta

Prueba esto, no es muy elegante pero es lo primero que se me ocurrio

Private Sub Command1_Click()
Dim A() As Variant

B = 0
ReDim Preserve A(B)

For X = 1 To 100

Z = UBound(A)
B = Z + 1
ReDim Preserve A(B)

Next X

MsgBox UBound(A)
End Sub