Adding as Single with .value not adding correctly

[youcanreachtrevor]

Having trouble googling this querry as the Variable name Single is very common.
Basically I have code that looks to see if the value in the cell is non zero, and if it is non zero then I add my variable (obtained elsewhere) to the existing .vale from the cell.
But somehow the adding isn't working. my variable is declared publically in the Sub, the code below is running within a Private Function initiated from a User Form.
I see for example 34.07 + 44.05 = 78.1125 or something like that...?
Any help is appreciated.
Thanks

Public Sub Qin_Click()
Dim QINCell As Single
Dim Interim As Single


If NISSCADactuals.Range("E12").Value = "" Then
QINCell = 0
Else: QINCell = NISSCADactuals.Range("E12").Value
End If
MsgBox ("TotalDebitNum: " & TotalDebitNum & " | QINCell: " & QINCell)
NISSCADactuals.Range("E12").Value = TotalDebitNum + QINCell
MsgBox (NISSCADactuals.Range("E12").Value)
Call CreditDebitIteration


End Sub

 

[Jerry Sullivan]

Please post the code you are using the declare variable TotalDebitNum and describe in which code module that is placed.

 

[RoryA]

I suggest you use Double not Single, since that’s how Excel stores numeric cell values and you can get small conversion errors. Looking at the numbers you mention, I suspect it’s more of a difference between the formatted cell values and their actual values.

 

[youcanreachtrevor]

Amazing, Thanks RoryA. I changed all of the Singles to Doubles and everything is adding properly now. I saw that Singles were more efficient in storing numbers, but didnt realize that the values in the excel sheet were stored as doubles. Thanks again!