Поиск повреждённых текстовых файлов

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