Осуществить чтение текста из файла с разбивкой на слова

Do While Not EOF(1)
    Line Input #1, var
    arr = Split(var)
Loop

Do While Not EOF(1)
    Line Input #1, var
    var = Replace(var, Chr(13), Chr(32))
    res = res & var
Loop
arr = Split(res)

Do While Not EOF(1)
    Line Input #1, var
    'var = Replace(var, Chr(13), Chr(32))
    res = res & " " & var
Loop
arr = Split(trim$(res))

a=Split(CreateObject("Scripting.FileSystemObject").Getfile(Name).OpenasTextStream(1).ReadAll, " ")

a=Split(CreateObject("Scripting.FileSystemObject").Getfile(Name).OpenasTextStream(1).ReadAll, vbNewLine)

Option Explicit
 
Private Declare Function UGCollection Lib "UGVB6" () As Collection
Dim ugo As Object, ugt As Object
Private Sub UserForm_Initialize()
    ChDir ThisWorkbook.Path
    Set ugo = UGCollection("ugobj")
End Sub
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Dim s$, jx$(), jy$(), sh
    On Error Resume Next
    TextBox1 = ugo.OpenSave(Me)(0)
    s = CreateObject("scripting.filesystemobject").Opentextfile(TextBox1).readall
    If Len(s) Then
        Set sh = WoSh("Новый файл", True)
        With sh
            jy = Split(s, vbCrLf)
            For y = 1 To UBound(jy) + 1
                jx = Split(jy(y - 1), vbTab)
                For x = 1 To UBound(jx) + 1
                    .Cells(y, x) = jx(x - 1)
                Next
            Next
        End With
        sh.Activate
    End If
    End
End Sub
Public Function WoSh(ByVal Name As String, Optional ReCreate As Boolean, Optional Color&) As Worksheet
    On Error Resume Next
    With ThisWorkbook
        Set WoSh = .Sheets(Name)
        If ReCreate Or (WoSh Is Nothing) Then
            WoSh.Delete
            Set WoSh = .Sheets.Add(After:=Sheets(.Sheets.Count))
            WoSh.Name = Name
        End If
        If Color Then WoSh.Tab.Color = Color
    End With
End Function
 
Private Sub UserForm_Terminate()
    Set ugo = Nothing
End Sub

Option Explicit
Private Declare Function UGCollection Lib "UGVB6" () As Collection
Dim ugo As Object, ugt As Object
Private Sub UserForm_Initialize()
    ChDir ThisWorkbook.Path
    Set ugo = UGCollection("ugobj")
End Sub
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Dim s$, jx$(), jy$(), sh
    On Error Resume Next
    TextBox1 = ugo.OpenSave(Me)(0)
    s = CreateObject("scripting.filesystemobject").Opentextfile(TextBox1).readall
    If Len(s) Then
        Application.DisplayAlerts = 0
        Set sh = WoSh("Новый файл", True)
        With sh
            jy = Split(s, vbCrLf)
            For y = 1 To UBound(jy) + 1
                jx = Split(jy(y - 1), vbTab)
                For x = 1 To UBound(jx) + 1
                    .Cells(y, x) = jx(x - 1)
         Next: Next: End With:
        sh.Activate
    End If
    End
End Sub
Public Function WoSh(ByVal Name As String, Optional ReCreate As Boolean, Optional Color&) As Worksheet
    On Error Resume Next
    With ThisWorkbook
        Set WoSh = .Sheets(Name)
        If ReCreate Or (WoSh Is Nothing) Then
            WoSh.Delete
            Set WoSh = .Sheets.Add(After:=Sheets(.Sheets.Count))
            WoSh.Name = Name
        End If
        If Color Then WoSh.Tab.Color = Color
    End With
End Function
 
Private Sub UserForm_Terminate()
    Set ugo = Nothing
End Sub

Option Explicit
Private Declare Function UGCollection Lib "UGVB6" () As Collection
Dim ugo As Object, ugt As Object
Private Sub UserForm_Initialize()
    ChDir ThisWorkbook.Path
    Set ugo = UGCollection("ugobj")
End Sub
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Dim s$, jx$(), jy$(), sh, fso, sName$
    On Error Resume Next
    sName = ugo.OpenSave(Me)(0)
    Set fso = CreateObject("scripting.filesystemobject")
    TextBox1 = fso.getbasename(sName)
    s = fso.Opentextfile(sName).readall
    If Len(s) Then
        Application.DisplayAlerts = 0
        Set sh = WoSh(TextBox1, True)
        With sh
            jy = Split(s, vbCrLf)
            For y = 1 To UBound(jy) + 1
                jx = Split(jy(y - 1), vbTab)
                For x = 1 To UBound(jx) + 1
                    .Cells(y, x) = jx(x - 1)
         Next: Next: End With:
        sh.Activate
    End If
    End
End Sub
Public Function WoSh(ByVal Name As String, Optional ReCreate As Boolean, Optional Color&) As Worksheet
    On Error Resume Next
    With ThisWorkbook
        Set WoSh = .Sheets(Name)
        If ReCreate Or (WoSh Is Nothing) Then
            WoSh.Delete
            Set WoSh = .Sheets.Add(After:=Sheets(.Sheets.Count))
            WoSh.Name = Name
        End If
        If Color Then WoSh.Tab.Color = Color
    End With
End Function
 
Private Sub UserForm_Terminate()
    Set ugo = Nothing
End Sub