Is it possible.....

[Armbruster]

Hey, I finally got it to work!

Try this . . .

Private Sub DataReport_Initialize()
    <ReportName>.Sections("<SectionName>").Controls("<ControlName>").ForeColor = &HFF&
    DoEvents
End Sub

Simply insert your DataReport name, the SectionName that contains the rptTextBox and the actual name of the text box (ControlName)

(&HFF& is red)

Hope this helps!