Hi everyone,

I am trying to read in a string containing numerical values and keep a running total of a field. The field contains values such as 000001.15 (preceeding zeros and 2 decimal points.)

my declarations are as follows

Dim runTotal_NetPaid_GT_ZERO(6) As Currency
Dim netPaid As Currency

netPaid = CCur(SH_NetPaid) ' field which contains the string
The problem I have is when I use "netPaid" to make a comparison.

Select Case netPaid

Case netPaid = 0

Case netPaid > 0

Case Else

End Select
Even though the value is zero in Debug, the highlighted code does not get executed. Any ideas on why this is?

Thanks for your help

Gogi