Something like this maybe...
zlocation = instrRev(wholestring,"z",4,vbTextCompare)
This will give you the location of the last "z", case insensitive, within the first four characters.
Or you could use:
zlocation = instr(1,wholestring,"z",vbTextCompare)
And it...