Ayuda, Pasar de Pseudocódigo a Visual basic (Macros excel)

Hola, quisiera que alguien me pudiera ayudar en desarrollar una macros para este enunciado, tengo el desarrollo en pseudocódigo. 

Enunciado:

La dirección de tránsito de la municipalidad de Antofagasta tiene la información de los autos existentes en la ciudad. Considerando que los datos se ingresan por pantalla y que cada registro tiene el siguiente formato:

Patente, marca, modelo, año, nombre _ dueño, precio, color, uso

Donde uso puede tener 2 valores, 1 ó 2. Si es 1 significa que es un auto particular, si es 2 es colectivo. Fin de datos: Patente = ‘AAA’. Se le pide que diseñe un algoritmo que entregue los siguientes resultados:

a) Cantidad de autos existentes en la ciudad.

Cantidad de autos de color amarillo.

c) Antigüedad media del parque automotriz antofagastino.

d) Valor de cada permiso de circulación. El valor del permiso de circulación corresponde al 5% del precio del auto. Considere que para los autos del año 1999 y posterior, se le debe agregar un 3% extra sobre el precio del auto (es decir un 8%).

e) Total de ingresos de la municipalidad por concepto de permisos de circulación.

f) Cantidad de autos que tiene Juan_Perez. g) Porcentaje de autos particulares.


Program Autos

Begin

CAC← 0 {Se inicializa el contador de autos colectivos}

CAA← 0 {Se inicializa el contador de autos amarillos}

ACA← 0 {Se inicializa el acumulador de años}

IN← 0 {Se inicializa el acumulador de ingresos}

CAJP← 0 {Se inicializa el contador de autos de Juan Perez}

CAP← 0 {Se inicializa el contador de autos particulares}

Read (PAT)

While (PAT <> ‘AAA’) do

Read (MAR, MOD, AÑO, ND, PRE, COL, USO)

If (USO = 1) then

CAP ← CAP + 1

Else

CAC ← CAC + 1

End if

If (COL = ‘Amarillo’) then

CAA ← CAA + 1

End if

ACA ← ACA + 1

If (AÑO >= 1999) then

VPC ← PRE * 0.08

Else

VPC ← PRE * 0.05

End if

Write (‘el valor del permiso de circulación es:’, VPC)

IN ← IN + VPC

If (ND = ‘Juan_Perez’) then

CAJP ← CAJP + 1

End if

Read (PAT)

End while

CTA ← CAP + CAC

Write (‘en Antofagasta hay:’, CTA, ‘autos’)

Write (‘en Antofagasta hay:’, CAA, ‘autos amarillos’)

If (CTA > 0) then

AM ← ACA / CTA

Else

AM ← 0

End if

Write (‘la antigüedad media es:’, AM, ‘años’)

Write (‘Los ingresos de la municipalidad son:’, IN, ‘pesos’)

Write (‘Juan_Perez tiene:’, CAJP, ‘autos’)

If (CTA > 0) then

PAP← (CAP / CTA)*100

Else

PAP← 0

End if

Write (‘el porcentaje de autos particulares es:’, PAP, ‘%’)

End