I am not sure if this will help but you can apply a variable to the
contents of the text box. Then see if the variable = "Private"...or use the instr function.

if strName = "Private" then
txtBox.forecolor = vbRed
end if

You may want to add the vbPropercase, because the text box will be case sensitive. private <> Private etc.
I hope this helps!
Lee