set s1=webchart.charts(0).seriescollection(0)
set c=webchart.constants
webchart.charts(0).axes.add S1.Scalings(c.chDimValues),
c.chAxisPositionRight , c.chValueAxis
The new value axis will take on the scale from series 0.
The msowcvba.chm listed below contains the OM you need to
construct your new axis.
-tm