根据文本框内数据更改显示颜色

报表中60分以下用红字60分以上用兰字显示怎么做？
在主体的格式化事件里输入如下代码：

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If TextBoxNumber < 60 Then 'TextBoxNumber为分数控件
TextBoxNumber.ForeColor = lngRed '改为红色
ElseIf TextBoxNumber > 60 and TextBoxNumber < 80 Then
TextBoxNumber.ForeColor = lngBlue '改为兰色
else
TextBoxNumber.ForeColor = lngBlack '改为黑色
End If
End Sub