OK seems it might be user error
Code:
For Counter = 0 to 1
should be
Code:
For Counter = 0 to 3
I'll test this later to confirm (thanks Tabsoft for checking the code) - I guess this is what happens when taking breaks from long sessions of coding and being distracted in-between testing !