How's this?
VB Code:
  1. max_len = 10^(len(maxY)-1)
  2. max_axisY = -int(-maxy/max_len) * max_len   ' using Int with -ve to round up!
  3. min_axisY = int(miny/max_len) * max_len