Scrolling maps error

[Xlithan]

I added this to the source code:
http://ms.shannaracorp.com/backup-forum ... sp?TID=119

I get a Subscript out of range error, highlighting this:

Code:

With SMaps(MapNum).Tile(RealX, RealY)