instead of using vbBlack and vbBlue and vbRed, try using
If [Current Balance] < 0 Then
[Current Balance].ForeColor = RGB(255,0,0)
ElseIf [Current Balance] > 0 Then
[Current Balance].ForeColor = RGB(0,0,255)
ElseIf [Current Balance] = 0 Then
[Current Balance].ForeColor = RGB(0,0,0)
End If...