Cajero automático

No me acuerdo exactamente la sintaxis de visual basic, pero el algoritmo no es complicado:
- Cant_dinero es la cantidad a repartir.
- Cant500 es la cantidad de billetes de 500, cant200 es la cantidad de billetes de 200 y así para 100, 50 y 20
El algoritmo:
cant500 = 0;
cant200 = 0;
cant100 = 0;
cant50 = 0;
cant20 = 0;
mientras (cant_dinero>0)
if (cant_dinero>=500)
cant500=cant500+1;
cant_dinero=cant_dinero-500;
else
if (cant_dinero>=200)
cant200=cant200+1;
cant_dinero=cant_dinero-200;
else
if (cant_dinero>=100)
cant100=cant100+1;
cant_dinero=cant_dinero-100;
else
if (cant_dinero>=50)
cant50=cant50+1;
cant_dinero=cant_dinero-50;
else
if (cant_dinero>=20)
cant20=cant20+1;
cant_dinero=cant_dinero-20;
else
"el dinero que queda para repartir
es menor a 20$"
end(while)
Cuando termine el ciclo, en las variables cant500, cant200, cant100, cant50, cant20 te queda la cantidad de billetes para repartir dicha suma.