Function bnNonTextSymbols(sD As String) As Boolean
  ' bnNoTextSymbols - No (Non) Text Symbols (letters and symbols)
  ' Обнаружение в строке не текстовых символов
  Dim sC As String
  Dim iI As Integer
  '
  For iI = 0 To 8
    sC = Chr$(iI)
    If 0 < InStr(sD, sC) Then
      bnNonTextSymbols = True
      Exit Function
    End If
  Next iI
  ' 9 - пропускаем - табуляция (может быть в тексте)
  For iI = 10 To 31
    sC = Chr$(iI)
    If 0 < InStr(sD, sC) Then
      bnNonTextSymbols = True
      Exit Function
    End If
  Next iI
  bnNonTextSymbols = False
End Function

Function iLifeRepeat() As Integer
  ' Зацикливание
  Dim iI As Integer
  Dim iJ As Integer
  '
  For iI = 1 To 20
    For iJ = 1 To 20
      If iX(iI, iJ) <> iXp(iI, iJ) Then
        ' Если есть хотя бы одно несовпадение через поколение
        iLifeRepeat = False
        Exit Function
      End If
    Next iJ
  Next iI
  iLifeRepeat = True
End Function