Algorítimo para VBA-Excel

//Autor: Eduardo V

//Data:05/08/2019

//Adaptado: Marcela

//Declaração das variáveis

Var

//Declaração das variáveis

vet: vetor [1..6]de inteiro

i , cont_pp, cont_ii, cont_pi, cont_ip: inteiro

Início

//

cont_pp<-0

cont_pi<-0

cont_ii<-0

cont_ip<-0

escreval ("Digite todos os números")

para i de 01 até 06 faca

//lendo cada  elemento do vetor

leia(vet)
//aqui todo o calculo,se não existir o resto na divisao=pp
//se >= 0=pi
//se existir resto na divisão=pp
//senão ii
*se (vet**%2) = 0 então*
// se pp, o contador recebe seu valor +1
cont_pi<-cont_pi=01
fimse
fimpara
//E sei que bagunça na tela mas estou mostrando na tela todos os lidos
para i de 01 até 06 faca
*escreval("Elemento n°",i," do vetor =",vet**)*
fimpara
//finalmente mostrando o resultado
escreval("O total de números lidos foi",cont_pp)
escreval("O total de números lidos foi",cont_pi)
escreval("O total de números lidos foi",cont_ip)
escreval("O total de números lidos foi",cont_ii)
fimalgoritimo

Eu gostaria de achar o ERRO p rodar no Visual Basic do EXCEL, não estou encontrando.