If function based on color of the shape

Short description:

I need to do little project on VBA and this is what I've come up: a car does laps based on number of laps user entered. But there is also a traffic light,
and if the traffic light is green, it does a normal lap, but if it's red, it has to do the bigger one. Problem is that I have no clue how to read the color value from a shape.

I will also add my file so you can take a look: Sheet2Problem.xlsm

For example:
if shape("light").color=green then
do
car_1.incrementleft speed + rnd()*10
paus 0.04
loop until car_1.left > line_5.left
or something like that.

Thank you!
I've come up with yet another problem.

My code is as follows:

Please Login or Register  to view this content.

There is similar code for color "red". What I want to achieve though is that the excel would check color of the light every time it crosses the finish line and
acts accordingly. But with this code it recognises the color once in the beginning and loops until the end. I have tried to take "IFs" inside "Do" function, but
somehow messed up. Any ideas? Btw, n is number of laps. Thanks! I also added a piece of code down below, I hope it's not too messy, it doesn't work
but hopefully it describes my problem.

Please Login or Register  to view this content.

Moderators note: code tags added for you - this time

Please use code tags when posting VBA code, it keeps it neat, and easier to read/copy