Pop up messages when many programs are executed in VBA PowerPoint

[CuriosityBug]

I tried something like this: It worked so far, I should test with multiple test cases.

Function changecol(oshp As Shape)
    oshp.Fill.ForeColor.RGB = RGB(255, 0, 0)
    changecol = True
    Exit Function
    Err_Handler:
   changecol = False
End Function