从文本文件读取整行时出现问题

我有一个程序，可以从文本文件（从 Notes 中使用 UTF 保存）读取文本行（大约 3000-4000 行）。每行由大约 300-900 个字符组成。我使用了这个功能：

    Function loadVerbs2(fullPathName As String) As String()
    Dim strings(0 To 5000) As String
    Dim my_file As Integer
    Dim text_line As String
    Dim stringNr As Integer
    my_file = FreeFile()
    Open fullPathName For Input As my_file
    stringNr = 0
    While Not EOF(my_file)
        Line Input #my_file, text_line
'Cut preceding "
        While ((Asc(Left$(text_line, 1)) < Asc("a")) Or (Asc(Left$(text_line, 1)) > Asc("z")))
            text_line = Mid$(text_line, 2)
        Wend
' Cut ending " and ,
        While ((Right$(text_line, 1) = Chr$(34)) Or (Right$(text_line, 1) = ","))
            text_line = Left$(text_line, Len(text_line) - 1)
        Wend
        strings(stringNr) = latinCharacter(text_line)
        stringNr = stringNr + 1
    Wend
    Close #my_file
    loadVerbs2 = strings
End Function

由于某种原因，该函数不会读取整行，而是剪切它们。 所以我把它改成这样：

Function loadVerbs(fullPathName As String) As String()
    Dim strings(0 To 5000) As String
    Dim text_line As String
    Dim stringNr As Integer
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    Set ts = fso.OpenTextFile(fullPathName)
        Do While Not ts.AtEndOfStream
            text_line = ts.ReadLine
'Cut preceding "
            While ((Asc(Left$(text_line, 1)) < Asc("a")) Or (Asc(Left$(text_line, 1)) > Asc("z")))
                text_line = Mid$(text_line, 2)
            Wend
' Cut ending " and ,
            While ((Right$(text_line, 1) = Chr$(34)) Or (Right$(text_line, 1) = ","))
                text_line = Left$(text_line, Len(text_line) - 1)
            Wend
            strings(stringNr) = latinCharacter(text_line)
            stringNr = stringNr + 1
        Loop
    ts.Close
    loadVerbs = strings
End Function

但结果相同。文本中有一些这样的字符：á í é ó à ò ì è â û î ñ ç 这使得这个“latinCharacter”函数需要转换它们，以便我可以将它们放在电子表格中。但这些字符不会阻止 ReadLine 或 Line Input 读取整行。 有什么建议么？？

我认为使用 ADO Stream 更好。优点之一是可以设置正确的字符集。
有关 ADO Stream 的信息请查看此处 https://learn.microsoft.com/en-us/sql/ado/reference/ado-api/stream-object-ado?view=sql-server-ver15

这是一个演示，其中包含文本导入的相关参数及其代表的含义：

Sub AdoStreamDemo()

Dim importPath As String
Dim importFileName As String
Dim objStream As Object
Dim lineOfTextFile As String

  
  importPath = "D:\Your Folder\" 'Don't forget the bakslash (\) at the end
  importFileName = "Your File.xxx" 'Filename with extension
  
  'Initialise ADO Stream
  Set objStream = CreateObject("ADODB.Stream")
  objStream.Charset = "utf-8" 'default is Unicode
  objStream.Type = 2 '2 = Text, 1 = Binary
  objStream.LineSeparator = -1 '-1 = adCrLf (default), 13 = adCr, 10 = adLf
  objStream.Open 'Opens the stream
  objStream.LoadFromFile importPath & importFileName 'Path with backslash (\) at the end and filename
  
  Do Until objStream.EOS 'EOS = End Of Stream
    lineOfTextFile = objStream.ReadText(-2) '-2 = one row, -1 = all
    'Do here what you want to do with every line of text from the file
    Debug.Print lineOfTextFile
  'Next line
  Loop
  
  objStream.Close 'Closes the stream
End Sub