Exemplo Vetor Imprimir e Contador

Sub ExemploVetor1()
Dim valor(6) As Integer
Dim i        As Integer
Dim conta   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
    'selecionar impares
    If valor(i) Mod 2 = 1 Then

    'contar quantidades de Numeros Impares incrementados
    conta = conta + 1
        MsgBox valor(i)
    End If
Next
MsgBox "total de impares: " & conta
End Sub