vba - Email body replace * with numbers -

i have email * , ** in body , check boxes in userform. if select check boxes, put in email body :

* text1 ** text2 ... * text24 ** text25 

when want reply want replace * 1,2,3.... , delete ** . thank you.

not quite sure mean 1,2,3 this...?

function removestars(strinput string) string      dim intcount integer     intcount = 1     stop     removestars = replace(strinput, chr(42) & chr(42), "")     while instr(removestars, chr(42)) <> 0         removestars = replace(removestars, chr(42), intcount, 1, 1)         intcount = intcount + 1     loop  end function