 4
   yEnd = tSAIn.Bounds(0).cElements - 1
   For y = yEnd To 0 Step -1
      For x = 0 To xEnd Step 4
         
         y2 = y + (Rnd * 4) - 2
         If (y2 &lt; 0) Then
            y2 = yEnd + y2
         End If
         If (y2 &gt; yEnd) Then
            y2 = y2 - yEnd - 1
         End If
         
         x2 = x + Int(Rnd * 4) * 4 - 64
         If (x2 &lt; 0) Then
            x2 = xEnd + x2
         End If
         If (x2 &gt; xEnd) Then
            x2 = x2 - xEnd - 4
         End If
         
     