then i would do a replace first

avarSplit = Split(Replace(ActiveCell.value, "CD", "CC"),"CC")