 (i &gt;= 30) Then
         pow = &amp;H80000000
      Else
         pow = pow * 2
      End If
   Next i
   
   m_iIndex = iNextIndex

End Sub

Public Sub SeedLarge(b() As Byte)

   ' determine the index to write into
   Dim iNextIndex As Long
   If (m_iIndex = 1) Then
      iNextIndex = 0
   Else
      iNextIndex = 1
   End If

   Dim lSeedSize As Long
   lSeedSize = UBound(b) - LBound(b) + 1
   
   Dim j As Long
   For j = 0 To lSeedSize - 1
      m_cells(iNextIndex, j) = IIf(b(j + LBound(b)) &gt; 0, 1, 