So wie ich es verstanden hab ist es nur:

Do
'Rotphase
Ampel1_Gruen = 0
Ampel2_Rot = 0
Ampel1_Rot = 1
Ampel2_Gruen = 1
Wait 1

'Gelbphase
Ampel1_Rot = 0
Ampel2_Gruen = 0
Ampel1_Gelb = 1
Ampel2_Gelb = 1
Waitms 200

'Grünphase
Ampel1_Gelb = 0
Ampel2_Gelb = 0
Ampel1_Gruen = 1
Ampel2_Rot = 1
Wait 1

Loop

So in etwa.