Как использовать TextToColumns в Win32com

Question

Я хотел бы привести пример использования TextToColumns в Win32com

Sub VBA_Code()
  Columns("A").TextToColumns DataType:=xlDelimited, FieldInfo:=Array(1, xlDMYFormat)
End Sub