Private Sub RP02()
 
'RP02
If Parent.RP02_MIN > 0 Then
    MIN_RP02 = Parent.RP02_MIN
Else: Exit Sub
End If
If Parent.RP02_MAX > 0 Then
    MAX_RP02 = Parent.RP02_MAX
Else: Exit Sub
End If
 
If Me.RP02_REL_D > 0 Then
        IST = Me.RP02_REL_D
    ElseIf Me.RP02_REL_L > 0 Then
        IST = Me.RP02_REL_L
    Else
        IST = Me.RP02_REL_Q
End If
 
If IST < MIN_RP02 Or IST > MAX_RP02 Then
Me.Text27.ForeColor = 255
Me.Text46.ForeColor = 255
Me.Text56.ForeColor = 255
Else
Me.Text27.ForeColor = 0
Me.Text46.ForeColor = 0
Me.Text56.ForeColor = 0
End If
 
End Sub