epfCISLOSLOVNE = IIf(Velke, UCase(Left$(strCisloText, 1)) & _Mid$(strCisloText, 2), strCisloText) & " Eur."