Thanks I figured it out after looking at this post by MHamid:
{Sorry I can't seem to post the link}

Sub Color_Rubrics()
Dim oSld As Slide
Dim oShp As Shape
Dim x As Long
For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
        If oShp.HasTextFrame Then
            If oShp.TextFrame.HasText Then
                With oShp.TextFrame.TextRange
                    For x = .Runs.Count To 1 Step -1
                        If .Runs(x).Font.Name = "LSBSymbol" Then
                            .Runs(x).Font.Color.RGB = RGB(255, 0, 0)
                        End If
                    Next x
                End With
            End If
        End If
    Next oShp
Next oSld
End Sub