Change Fill color using VBA in PowerPoint

[dibyendu2280]

I have 10 hexagon shape(having other shape also ie rectangle, square) & having four animation(Entrance:Appear, Motion paths : down, Emphasis:Fill color(given Blue color), Motion paths:Left) with fixed delay.
During starting animation(during entrance) hexagon color is Red & when meet emphasis animation it become Blue color & remain Blue for remaining animations.
Now I want to change both color through VBA code. I am abale to change only entrance color(ie Red to my coustom color) through below code:

Sub addColorhexagon()
    Dim hshp As Shape
    Dim osld As Slide
    Dim r As Long
    Dim g As Long
    Dim b As Long
    On Error Resume Next
    r = InputBox("Please enter Red number in: RGB(red,green,blue)", "Change Top Shape Color", "068")
    g = InputBox("Please enter Green number in: RGB(red,green,blue)", "Change Top Shape Color", "114")
    b = InputBox("Please enter Blue number in: RGB(red,green,blue)", "Change Top Shape Color", "196")
    Set osld = ActivePresentation.Slides(1)
    For j = 1 To 10
       Set hshp = osld.Shapes("hexagon" & j)
       hshp.Fill.ForeColor.RGB = RGB(r, g, b)
       hshp.Fill.Solid
    Next j
    On Error GoTo errhandler
    Exit Sub
    errhandler:
    MsgBox "Opps!"
End Sub

So How can I change the Blue color (Emphasis:Fill color ie Blue) to my custom color?
Please help