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