Текстовый формат UNIX: Как быстро идентифицировать такой тип файлов

Private Sub cmdTest_Click()
  Dim sT As String
  Dim sTest As String
  Dim sFn As String
  Dim iFn As Integer
  
  '
  ' Файл-шаблон
  Load frmOpen
  frmOpen.txtFileName = ""
  frmOpen.drvBox.Drive = App.Path
  frmOpen.dirBox.Path = App.Path
  frmOpen.cboExt.Clear
  frmOpen.cboExt.AddItem "GenBank (*.gb*)"
  frmOpen.cboExt.AddItem "Все файлы (*.*)"
  frmOpen.cboExt.ListIndex = 0
  frmOpen.Show 1
  ' Была нажата клавиша "Отмена"
  If "" <> Trim$(frmOpen.Tag) Then
    sFn = frmOpen.Tag
  End If
  Unload frmOpen
  '
  sTest = ""
  iFn = FreeFile
  Open sFn For Binary As #iFn
  MsgBox Str(LOF(iFn))
  sTest = Space$(LOF(iFn)) ' Резервируем размер под строку
  Get #iFn, , sTest
  Close #iFn
   MsgBox "Длина строки =" & Str(Len(sTest)) ' Реальный размер строки - txtTest отображает только 64к
  txtTest.Text = Replace(sTest, Chr$(10), vbCrLf) ' конвертируем Lin в Win
  
End Sub

Function iTextUnix(sFn As String) As Integer
  ' iTextUnix - функция определяющая текстовые Unix-файлы.
  Dim sT As String
  Dim iFn As Integer
  Dim lLOF As Long
  '
  iTextUnix = False
  iFn = FreeFile
  Open sFn For Input As #iFn
  Line Input #iFn, sT
  If LOF(iFn) = Len(sT) Then
    ' Весь файл загружен, как одна строка.
    iTextUnix = True
  End If
  Close #iFn
End Function

Sub TextUnixToWin(sFn As String)
  ' TextUnixToWin - подпрограмма конвертирует текстовый файл
  ' в формате Unix в формат Windows.
  Dim sT As String
  Dim sTL As String
  Dim iFn As Integer
  '
  iFn = FreeFile
  Open sFn For Input As #iFn
  Line Input #iFn, sT
  Close #iFn
  '
  If 0 <> InStr(sT, Chr$(13) + Chr$(10)) Then
    ' Конвертация не требуется.
    Exit Sub
  End If
  iFn = FreeFile
  Open sFn For Output As #iFn
  Do While True
    If 0 <> InStr(sT, Chr$(10)) Then
      sTL = sLeftCut(sT, Chr$(10))
      Print #iFn, sTL
    Else
      If 0 <> Len(sT) Then
        Print #iFn, sT
        Exit Do
      Else
        Exit Do
      End If
    End If
  Loop
  Close #iFn
End Sub

Public Enum ConvertType
dos2unix = 0
unix2dos = 1
End Enum
 
Public Function ConvertFile(OriginalFile As String, NewFile As String, eConvertType As ConvertType, _
Optional DeleteOriginal As Boolean = False)
 
Dim OpenFileNum, SaveFileNum As Integer
Dim NewFileBuffer As String
 
' We accept data only from
' This function will open a file and convert it to
' a txt file format usable under *nix or dos
On Error GoTo Error_Found
 
OpenFileNum = FreeFile ' grab the first free file
Open OriginalFile For Input As #OpenFileNum ' open the unix file
SaveFileNum = FreeFile ' get another free file to write to
Open NewFile For Binary As #SaveFileNum ' open/create the save file
Do While Not EOF(OpenFileNum)
    Line Input #OpenFileNum, NewFileBuffer ' retrive the text (if a unix file, then the entire text is on one line)
    If eConvertType = dos2unix Then ' Check what type of conversion to do
        NewFileBuffer = NewFileBuffer & Chr(10)
      Else
        NewFileBuffer = Replace(NewFileBuffer, Chr(10), vbCrLf)
    End If
    Put #SaveFileNum, , NewFileBuffer ' write out the file
Loop
Close #SaveFileNum
Close #OpenFileNum
 
If DeleteOriginal = True Then Kill OriginalFile
 
Exit Function
 
Error_Found:
MsgBox "Error: " & Err.Description & vbCrLf & "Number: " & Err.Number
Exit Function
 
End Function

Function sLeftCut$(ByRef sT$, ByVal Delim$)
  Dim pos&
  pos = InStr(sT, Delim)
  sLeftCut = Left$(sT, pos)
  sT = Right$(sT, Len(sT) - pos)
End Function

Function sLeftCut(sA, sB As String) As String
  ' sLeftCut - урезает строку слева до последовательности
  ' символов определенных во второй строке.
  '
  ' sA - урезаемая строка
  ' sB - искомая строка
  If Len(sA) = 0 Then
    sLeftCut = ""
    Exit Function
  ElseIf Len(sB) = 0 Then
    sLeftCut = ""
    Exit Function
  ElseIf InStr(sA, sB) = 0 Then
    sLeftCut = ""
    Exit Function
  End If
  '
  sLeftCut = Left$(sA, InStr(sA, sB) - 1)
  sA = Right$(sA, Len(sA) - InStr(sA, sB) - Len(sB) + 1)
End Function