let
    src = Excel.CurrentWorkbook(){[Name="ISIN_X__2"]}[Content],
    cols = List.FirstN(Table.Column(src, Table.ColumnNames(src){1}), 5),
    res = #table(cols, List.Split(src[Column2], 5))
in
    res

Sub test()
  Dim s As String
  Dim aVals As Variant
  
  s = ActiveSheet.Cells(3, 6)
  aVals = Split(s, " ")
  ActiveSheet.Range("A3:A" & CStr(UBound(aVals) + 3)).Value = Application.WorksheetFunction.Transpose(aVals)
  Erase aVals
End Sub

Sub ConvertAnsiToUtf8(aFileName As String)
    Dim outputFile As String
    Dim text As String
    
    ' Имя файла в кодировке UTF-8
    outputFile = Replace(aFileName, ".txt", "_UTF.txt")
    
    ' Чтение файла в кодировке ANSI
    With CreateObject("ADODB.Stream")
        .Type = 2 ' adTypeText
        .Charset = "windows-1251" ' или "iso-8859-1" для западноевропейской кодировки
        .Open
        .LoadFromFile aFileName
        text = .ReadText
        .Close
    End With
    
    ' Запись файла в кодировке UTF-8
    With CreateObject("ADODB.Stream")
        .Type = 2 ' adTypeText
        .Charset = "utf-8"
        .Open
        .WriteText text
        .SaveToFile outputFile, 2 ' adSaveCreateOverWrite
        .Close
    End With
    
    MsgBox "Файл успешно перекодирован в UTF-8", vbInformation
End Sub

'Пример вызова процедуры конвертации
Sub test()
'Измените имя файла "d:\Wrk\4\Win32\Debug\al.txt" на имя своего файла 
  Call ConvertAnsiToUtf8("d:\Wrk\4\Win32\Debug\al.txt")
End Sub