Create 10 mientras - monto de ventas.vb