Текст в столбцы в VBA

Question

Я хочу преобразовать весь столбец в текст с разделителями. Пробовал этот код:

y.Sheets("csv").Range("A:A").NumberFormat = "@"

Но с этим кодом я получаю результат, как на картинке.

Однако я хочу получить такой результат:

Как вы видите, я не могу сделать код VBA для последнего шага в меню "Текст в столбцы", где мы выбираем "Текст" там.

Я также пробовал этот код:

'Dim myRange As Range
'Set myRange = y.Sheets("csv").Range("A1:A20") ' you may need to qualify the range with sheet name, etc.

   ' myRange.TextToColumns Destination:=myRange, DataType:=xlDelimited, _
    'TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    'Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:="-"

Но и здесь я не могу контролировать последний шаг (где я могу выбрать текст). Любая помощь будет высоко оценен.