Separar Texto en Columna
 

Hola estoy abriendo un archivo de excel y quiero separar el texto de la primera columna en varias columnas, como elemento separador será una coma.

Lo estoy intentando hacer con la función TexttoColumn pero no soy capaz de hacerlo funcionar.

Alguien me puede echar una mano.
Gracias por anticipado

Ya he encontrado la solución:

Hoja.Selection.TexttoColumns(DataType:=xlDelimited, comma:=true);