This is a test for writing code on a blog:

 

    Public Sub ColourIndividualPoints(mySeries As Series, colour As Integer)

        On Error Resume Next

        Dim points = DirectCast(mySeries.Points, Points)
        Dim numpoints = points.Count

        For i = 0 To numpoints - 1
            Dim myPt = DirectCast(points(i), Point)

            If myPt.MarkerStyle <> XlMarkerStyle.xlMarkerStyleNone Then

                myPt.MarkerForegroundColor = colour
                myPt.MarkerBackgroundColor = colour

            End If
        Next
    End Sub