vba - Using Excel Split Function to Split Cell Contents into Multiple Columns, without having a uniform delimiter -

i familiar 1 cell multiple columns feature when comes simple text. have 250 rows, each row has non-uniform number of list items in 1 cell. cells have little 1 list item, others have five. need columns populated each list item, separately. columns "first item", "second item" etc. items in lists non-uniform length strings.

basically need cell says "1. have dog 5. cat 8. today sunny", have column 1 "1. have dog", column 2 "5. cat", column 3 "8. today sunny". process 250 rows.

this vba i've tried, doesn't anything.

sub test() dim text string dim integer dim name variant text = activecell.value name = split(text, "##.") end sub