error in the formula when callig CR8 from VB6

I've built CR using qry and it's warking fine by itself.
I am using this folmula in the report:
If Left({Query.STORE},4) = "0000"
Then Replace({Query.STORE},"0"," ",1,4)
Else
If Left({Query.STORE},3) = "000"
Then Replace({Query.STORE},"0"," ",1,3)
Else
If Left({Query.STORE},2) = "00"
Then Replace({Query.STORE},"0"," ",1,2)
Else
If Left({Query.STORE},1) = "0"
Then Replace({Query.STORE},"0"," ",1,1)
Else {Query.STORE};
This formula replaces leading zeroes from 5 digit string.
When I am calling report from VB6 I'am getting the following error:
'error in formula <Store>
'If Left({Query.STORE},4) = &quot;0000&quot;
' A number, currncy amount, boolean or string is expected here.

I'd greatly appriciate your help
Thank you