tengo un pequeño problema que espero me puedan orientar, resulta que tengo que almacenar un arreglo y por cada dato que voy almacenando verificar si este no ha sido ingresado anteriormente, la dificultad que tengo es que de principio defino un array de 10 elementos, pero puede que el usuario necesite ingresar 15, 20, 30 o n elementos. He intentado usar la instrucción ReDim pero no he logrado hacerlo ya que me sale el error de La matriz ya tiene dimensiones
Anexo código si me pueden orientar.
Sub buscarClaves()
Dim AClaves(10) As String
Dim cont As Integer
cont = 0
ReDim Preserve AClaves(cont)
Dim nClave As String
Do While nClave <> "n"
nClave = InputBox("Ingrese Clave")
If bClaves(nClave, AClaves()) Then
MsgBox ("Clave duplicado")
Else
AClaves(cont) = nClave
cont = cont + 1
End If
Loop
End Sub
Funcion para buscar datos repetidos dentro del arreglo.
Function bClaves(ByVal clve As String, ByRef Datos() As String) As Boolean
bClaves = False
Dim clave As Variant
For Each clave In Datos
If clave <> "" Then
If clave = clve Then
bClaves = True
End If
End If
Next
End Function