Correct syntax for Gradient fill of shape

As part of a major report, i need to change the color/s of a prenamed shape.

I need to color fill the shape as gradient in 2 colors.
I tried the following googled code, but i get an error with it.

Can anyone assist in the correct gradient fill syntax for the beloiw:

With ActiveSheet.Shapes("TWOTONESHAPE")
    .Fill.TwoColorGradient msoGradientHorizontal, 1
    .Fill.GradientStop(1) = RGB(255, 0, 0) ' <=== Error location !
    .Fill.GradientStop(1).stopPosition = 0
    .Fill.GradientStop(2) = RGB(128, 122, 201)
    .Fill.GradientStop(2).stopPosition = 50
   End With