Problem med løkke

Har et lidt tricky problem..

Lidt forklaring..

Jeg har nogle f.eks 5 procent tal.. Disse til skal udskrives i søjler .. som nedefor

----------- 20 %
------------------------- 40%
--- 5%
------------- 25%
------- 10%


Mit problem er at søjlerne ikke skal fylde de procental som de har.. Den højeste (40) skal fylde 100.. Dvs den skal ganges med 2.5.. De andre skal det samme..
Har lavet en løkke der udregner det tal som procenterne skal ganges med..
Problemet er bare at løkken ikke fungere 100% ... Dvs at når den højeste procent bliver over 40.. så bliver det udregnede gange tal for upræcis.. her er min løkke.. Nogle ideer til hvordan den kommer til at fungere 100%

I dette tilfælde har jeg sat den højeste procent til 40

highPro=40
myNumber=20
i=5
Do While i<HighPro
    if highPro>i then
        myNumber=myNumber/2
    end if
    i=i*2
Loop