TileNumAlocate = 1

Do Until TileNumAlocate = 16
TilePosX(TileNumAlocate) = TileNumAlocate
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 31
TilePosX(TileNumAlocate) = TileNumAlocate - 15
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 46
TilePosX(TileNumAlocate) = TileNumAlocate - 30
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 61
TilePosX(TileNumAlocate) = TileNumAlocate - 45
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 76
TilePosX(TileNumAlocate) = TileNumAlocate - 60
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 91
TilePosX(TileNumAlocate) = TileNumAlocate - 75
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 106
TilePosX(TileNumAlocate) = TileNumAlocate - 90
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 121
TilePosX(TileNumAlocate) = TileNumAlocate - 105
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 136
TilePosX(TileNumAlocate) = TileNumAlocate - 120
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 151
TilePosX(TileNumAlocate) = TileNumAlocate - 135
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 166
TilePosX(TileNumAlocate) = TileNumAlocate - 150
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 181
TilePosX(TileNumAlocate) = TileNumAlocate - 165
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 196
TilePosX(TileNumAlocate) = TileNumAlocate - 180
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 211
TilePosX(TileNumAlocate) = TileNumAlocate - 195
TileNumAlocate = TileNumAlocate + 1
Loop

Do Until TileNumAlocate = 226
TilePosX(TileNumAlocate) = TileNumAlocate - 210
TileNumAlocate = TileNumAlocate + 1
Loop

TileNumAlocate = 1
TileCount = 1

Do Until TileCount = 16
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 2

Do Until TileNumAlocate = 31
TilePosY(TileCount) = TileNumAlocate >>>Error occurs here<<<
TileCount = TileCount + 1
Loop

TileNumAlocate = 3

Do Until TileNumAlocate = 46
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 4

Do Until TileNumAlocate = 61
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 5

Do Until TileNumAlocate = 76
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 6

Do Until TileNumAlocate = 91
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 7

Do Until TileNumAlocate = 106
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 8

Do Until TileNumAlocate = 121
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 9

Do Until TileNumAlocate = 136
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 10

Do Until TileNumAlocate = 151
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 11

Do Until TileNumAlocate = 166
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 12

Do Until TileNumAlocate = 181
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 13

Do Until TileNumAlocate = 196
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 14

Do Until TileNumAlocate = 211
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop

TileNumAlocate = 15

Do Until TileNumAlocate = 226
TilePosY(TileCount) = TileNumAlocate
TileCount = TileCount + 1
Loop