[perrochin]

Ya he encontrado la solución:

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