excel vba split string into multiple columns

Beauticians