Public Sub UslovnFormat()
Dim fcd As FormatCondition, str As String
str = Mid(fldKiosk.Name, 2)
With fldKiosk
     With .FormatConditions
        .Delete
            Set fcd = .Add(acFieldHasFocus)
                fcd.BackColor = HexToLongRGB("FFC20E")
                 fcd.FontBold = True
            Set fcd = .Add(acExpression, , str & "=" & KioskAnalize)
                fcd.BackColor = HexToLongRGB("6F3198")
                fcd.ForeColor = vbYellow
'                Debug.Print str & "=" & KioskAnalize
            Set fcd = .Add(acFieldValue, acEqual, "0")
'                 fcd.BackColor = vbBlack
                 fcd.ForeColor = HexToLongRGB("D8D8D8")
'                 fcd.FontBold = True
    End With
End With
End Sub
Function HexToLongRGB(sHexVal As String) As Long
    Dim lRed As Long
    Dim lGreen As Long
    Dim lBlue As Long

    lRed = CLng("&H" & Left$(sHexVal, 2))
    lGreen = CLng("&H" & Mid$(sHexVal, 3, 2))
    lBlue = CLng("&H" & Right$(sHexVal, 2))

    HexToLongRGB = RGB(lRed, lGreen, lBlue)

End Function