Necesito ideas para modificar el tamaño de un rectángulo con VBA

Estoy tratando de crear un statusbar, utilizando dos rectángulos. Una barra hace de borde y la otra debería ir cambiando de tamaño para mostrar el progreso. La barra tiene un ancho de 400 y la idea es que cada vez que el progreso aumenta 10 % la barra aumente en 40, cuanda el progreso sea 10% la barra mida 40, al 20% la barra mida 80, al 30% la barra mida 120 y así hasta llegar a 400-
He visto que para modificar el ancho de un shape se debe utilizar .ScaleWidth

No entiendo como funciona scaleWith, si fijo la escala, por ejemplo en 200% con el ancho de barra en 40 para un progreso del 10%, como la idea que planteo al principio, al 20% de progreso aumenta nuevamente el 200% quedando con un ancho de 80, al 30% la barra ya llega a ser de 160, al 40%, 320, no resulta como lo que planteo arriba.

Por favor si tienen ideas de como lograr essto, de alguna instrucción más sencilla para cambiar el ancho de los shapes, o cualquier aporte.