Subprograma en VBA sin estructura selectivas

Buenas,
Deseo saber como realizar un subprograma que permita realizar el cálculo de monedas necesarias ingresando un monto por . Las monedas disponibles son 1,5,10. Ejemplo, si tengo 34 soles me devolvería 3 x 10 y 4 x 1.
Conozco como hacerlo con selectivas pero usando lo básico de VBA como se podría resolver.
Muchas gracias por su tiempo,

{"Lat":66.6320708323364,"Lng":27.59765625}