Need to Format Variables Correctly

[MichaelS]

I am comparing two sorted excel files "acct" and "Crystal" and merging there contents into a third. I sorted the two excel files on two common fields in each. - Account number and and amount. I am trying to compare these two fields to see if there are differences between the two excel files, but the format I am getting is not the same that was use to sort the columns in the excel files. I would like the amount fields fixed and the account field to have leading zeroes so that the compare determines if there if found an extra accouting or crystal records and increments accordingly.

The amount field shows 0000001924.00 in excel, but the variable that I assigned from the cell had "1924". The Account field has leading zeroes and shows as such in excel, but the var does not have a leading zero. Can this be done or should I approach this problem differently?

Code:

Do until EndofBothFiles = true sAcctCustNBR= xlSheet.Rows(iARow).Columns(8) sCrystalCustNBR = xlSheet3.Rows(iCRow).Columns(8) sAcctAmount = xlSheet.Rows(iARow).Columns(2) sCrystalAmount = xlSheet3.Rows(iCRow).Columns(7) sAcctKey = sAcctCustNBR & sAcctAmount If sAcctKey = sCrystalKey Then 'Move accounting and crystal fields to new speadsheet iARow = iARow+1 iCRow = iCRow+1 iRow = iRow+1 elseif sAcctKey < sCrystalKey Then ' move accouning fields to new spreadsheet iARow = iARow+1 iRow = iRow+1 else 'move crystal fields to new spreadsheet iCRow = iCRow+1 iRow = iRow+1 End If If iARow >= iAcctRowCount and iCRow >= iCrystalRowCount Then EndofBothFiles=True End If Loop