Sub ReadTextFileLine()
 
Dim a As String
Open ("w:\new 2222.txt") For Input As #1
Do Until EOF(1)
Line Input #1, a
 MsgBox$ a
Loop
Close #1
 
End Sub

Function LoadTextFromTextFile(ByVal filename$, Optional ByVal encoding$) As String
    ' функция загружает текст в кодировке Charset$ из файла filename$
    On Error Resume Next: Dim txt$
    If Trim(encoding$) = "" Then encoding$ = "windows-1251"
    With CreateObject("ADODB.Stream")
        .Type = 2:
        If Len(encoding$) Then .Charset = encoding$
        .Open
        .LoadFromFile filename$        ' загружаем данные из файла
        LoadTextFromTextFile = .ReadText        ' считываем текст файла
        .Close
    End With
End Function

If Trim(encoding$) = "" Then encoding$ = "windows-1251"

 If Trim(encoding$) = "" Then encoding$ = "utf-8"

Option Explicit
 
Sub ReadTextFileLine()
 
    Dim objStream, myTXT, a, Количество_строк, li
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "utf-8"
    objStream.Open
    objStream.LoadFromFile ("w:\в UTF8.txt")
    myTXT = objStream.ReadText()
    a = Split(myTXT, vbCrLf)
    'Количество_строк = UBound(a) - LBound(a)
    'MsgBox$ Количество_строк
    'MsgBox$ UBound(a)
    'MsgBox$ LBound(a)
    'считает от нуля!!!!!
    For li = LBound(a) To UBound(a)
        MsgBox$ li & vbCrLf & a(li)
    Next li
 
End Sub

For li = LBound(a) To UBound(a)
        MsgBox$ Len(a(li))
        MsgBox$ li & vbCrLf & a(li)
        Selection.TypeText Text:=a(li)
    Next li