Convert a TextList field into richtext bulleted list

I haven't done this in a while, but on my cheat sheet i have the following (I bet there is a much easier way than this but....at least it's something). This allows your combined text to have up to 8 parts, you have to expand for more.

var text Field = ToText([Combined Text Field); //Field with list for bullets
var text Delineator = ";"; // How is your text field separated?

var text PartOne = Trim(Part($Field,1,$Delineator));
var text PartTwo = Trim(Part($Field,2,$Delineator));
var text PartThree = Trim(Part($Field,3,$Delineator));
var text PartFour = Trim(Part($Field,4,$Delineator));
var text PartFive = Trim(Part($Field,5,$Delineator));
var text PartSix = Trim(Part($Field,6,$Delineator));
var text PartSeven = Trim(Part($Field,7,$Delineator));
var text PartEight = Trim(Part($Field,8,$Delineator));

//If I remember correctly, I only used this next section so I could set the color and style of each bullet. If you want them all the same/default color and text, I think this can be ignored

var text one="<span style='color:#000000'>" & $PartOne & "</span>";
var text two="<span style='color:#000000'>" & $PartTwo & "</span>";
var text three="<span style='color:#000000'>" & $PartThree & "</span>";
var text four="<span style='color:#000000'>" & $PartFour & "</span>";
var text five="<span style='color:#000000'>" & $PartFive & "</span>";
var text six="<span style='color:#000000'>" & $PartSix & "</span>";
var text seven="<span style='color:#000000'>" & $PartSeven & "</span>";
var text eight="<span style='color:#000000'>" & $PartEight & "</span>";

//If you ignore above, then change $one, $two, etc below to $PartOne, $PartTwo...

"<ul>" &
If( $PartOne<>"", "<li>" & $one & "</li>") &
If( $PartTwo<>"", "<li>" & $Two & "</li>") &
If( $PartThree<>"", "<li>" & $Three & "</li>") &
If( $PartFour<>"", "<li>" & $Four & "</li>") &
If( $PartFive<>"", "<li>" & $Five & "</li>") &
If( $PartSix<>"", "<li>" & $Six & "</li>") &
If( $PartSeven<>"", "<li>" & $Seven & "</li>") &
If( $PartEight<>"", "<li>" & $Eight & "</li>") &
"</ul>"

------------------------------
Michael Tamoush
------------------------------