'Read each line in fileIf CFile.OpenFileRead(FileName) Then fEncoding = CFile.ReadBOM() While Not CFile.Eof() 'Read line from file rc = CFile.ReadLine(inStrg, fEncoding) If (rc = False) Then GoTo FILE_ERR Wend CFile.CloseFileEnd If