Format string color

This code:

.List(.ListCount - 1, 3) = Format(Format(myNewArray(i, 13), "###,##0.00"), "@@@@@@@@@@@@@")

does a decent job aligning the output to a column in a list box.

I would like to be able to change the color of the string to red for a negative number.

This only works to format cells it seems.

a = "1234"
b = Format(a, "0.00;[red]-0.00")

thanks, I'll check it out.