Exemplo Vetor

Sub ExemploVetor()
Dim valor(6) As Integer
Dim i        As Integer

'encrementar valor no vetor
For i = 0 To 6
valor(i) = CInt(InputBox(" Digite um valor"))
Next

'imprimir valores encrementados
For i = 0 To 6
MsgBox valor(i)
Next

End Sub