Font colour animation

Question

I want to delete any animation of my two text boxes (TextBox_A, TextBox_B) then add a fade animation & a font colour change.

The font colour changed text in TextBox_A & 2nd/remaining text in TextBox_B changed to the default colour (orange).

Dim oeff As Effect
Dim gShp As Shape
Dim tShp As Shape
Dim C As Long
Dim X As Long
Dim osld As Slide

Set osld = ActivePresentation.Slides(1)
Set gShp = osld.Shapes("TextBox_A")
For C = osld.TimeLine.MainSequence.Count To 1 Step -1
    If  osld.TimeLine.MainSequence(C).Shape.Id = gShp.Id Then
        osld.TimeLine.MainSequence(C).Delete
    End If
Next C
 
Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=gShp, effectid:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
oeff.Timing.TriggerDelayTime = 0
oeff.Timing.Duration = 0.75

Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=gShp, effectid:=msoAnimEffectChangeFontColor, trigger:=msoAnimTriggerWithPrevious)
oeff.EffectParameters.Color2.RGB = RGB(127, 127, 127)
oeff.Timing.TriggerDelayTime = 7.5
oeff.Timing.Duration = 0.1
 
Set tShp = osld.Shapes("TextBox_B")
For C = osld.TimeLine.MainSequence.Count To 1 Step -1
    If  osld.TimeLine.MainSequence(C).Shape.Id = tShp.Id Then
        osld.TimeLine.MainSequence(C).Delete
    End If
Next C
 
Set oeff =  osld.TimeLine.MainSequence.AddEffect(Shape:=tShp, effectid:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
oeff.Timing.TriggerDelayTime = 0
oeff.Timing.Duration = 0.75

Set oeff =  osld.TimeLine.MainSequence.AddEffect(Shape:=tShp, effectid:=msoAnimEffectChangeFontColor, trigger:=msoAnimTriggerWithPrevious)
oeff.EffectParameters.Color2.RGB = RGB(0, 0, 0)
oeff.Timing.TriggerDelayTime = 7.5
oeff.Timing.Duration = 0.1