I am confused. At Jan 18 5:11 pm you said: \"...problem solved.\" Now you say: \"It does\". What does what? I\'m not sure whether you understand the problem I\'m trying to solve and whether you think QuickStep is right or not. Anyhow, about your question on the while loops I use. Strange enough I can do without the loop for the first $regsub (I understand why), but not for the second. Backreferencing with \1 in the second $regsub doesn\'t work. I\'m not sure were it goes wrong: in the $iif, in the $gettok and/or in the $calc. I need two $regsubs, because I can\'t get the second one working for both single-digit and two-digit foreground colors. Also, you replaced (?!\d) with \D. But these are not the same. With \D the first non-digit will be backreferenced which results in coloring the first non-digit too. Anyhow, thanks for the tip to improve the first $regsub. Can you think of a way how to use \1 in the second one, or even better, to combine the two $regsubs into one?