Need Gradient on bar with more than 2 colors

[Invisibleman]

Dear all,

For my Combo-chart on the bars I would have multiple colors for each bar point. However, in the VBA when I set to change the colors higher than 2 I got the error "Invalid procedure call or argument".

If I set the colors thru excell then I indeed see multple colors, but how to get this in VBA? And also as the colors are depending on the % from a cell, the colors may need to chage, based on the %.

In the excell I have this for testing;

and the code I am trying is, where in general I will have 4 different colors which all can change;

 With ChartObjects("BAR12").Chart.SeriesCollection(3).Points(PointNr).Format.Fill
                       .ForeColor.RGB = RGB(255, 0, 0) 'MainBarColor(1)
                       .BackColor.RGB = RGB(0, 255, 0) 'MainBarColor(3)
                       
                        ChartObjects("BAR12").Chart.SeriesCollection(3).Points(PointNr).Border.Color = vb3DDKShadow
                    
                        .TwoColorGradient Left(varColorSettings(6, 2), 2), 2
                        .GradientStops(1).Color = MainBarColor(1) 'This works okay
                        .GradientStops(2).Color = MainBarColor(2) 'This works okay
                        .GradientStops(3).Color = MainBarColor(3) 'This generate the error
                      ''  .GradientStops.Insert MainBarColor(4)
                        .ForeColor.Brightness = varColorSettings(5, 2)
    End With

If anybody can help, that would be very appriciated.

With kind regards,
Hans