Vetor Dinamico VBA Excel

Sub vetordinamico()
Dim v() As Integer
Dim q As Integer
Dim i As Integer
q = CInt(InputBox("Digite o Tamanho do vetor : "))
q = q - 1
ReDim v(q)
For i = 0 To q
    v(i) = CInt(InputBox("Digite um Valor: "))
Next

For i = 0 To q
Debug.Print v(i)
Next
   
End Sub