I have a 3 text (High , Normal , Low ) in filed bound to txt.remark filed , I
want in print out [txt.remark] appear in a diffrent color depending on value
in feild [Result] , I tried to do this but i couldn't this the code that I
write it

Dim txt_Remark As String

Private Sub Report_Current()

Select Case txt_Remark
Case "low"
Me.txt_Remark = vbred
Case "normal"
Me.txt_Remark = vbBlack
Case "high" 'used brakets because two words
Me.txt_Remark = vbred
End Select

End Sub

Please I want some one help me to correct this