Visual Basic - Redim sin perder datos

Hola!

Necesito saber como redimensionar un arreglo sin perder los datos que ya tenía guardados.

Es decir, tengo un vector de tamaño 5 con cinco nombres ya guardados y luego necesito agregarle un sexto nombre o más... sin perder los nombres que ya tenía.

Esque cuando hago el redim, pierdo todo lo que ya tenía.

¿O de qué otra manera lo puedo hacer?

gracias por la ayuda ; )

Otra preguntita ya de paso...... jejejeje..... Al final de todo ¿Cómo puedo saber el tamaño de la dimensión? hay alguna función que me lo diga sin tener que hacer un contador?

Yo recuerdo que fox pro la función alen(array) me devolvía el tamaño de un arreglo.

bueno, en lo que puedan ayudarme, gracias.

te paso un ejemplo:

Private Sub Form_Load()
Dim vector() As String

ReDim vector(2)

vector(0) = "pepe"
vector(1) = "Jose"
vector(2) = "Carlos"

ReDim Preserve vector(5)

vector(3) = "Maria"
vector(4) = "Elena"

MsgBox "Tamaño: " & UBound(vector)

For i = LBound(vector) To UBound(vector) - 1
MsgBox vector(i)
Next

End Sub