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