Getting Value as 8.5265128291212E-14 instead of getting 0 or zero in Textbox when values changed and calculated

[NimishK]

Hello

Though explored quite few threads on this forum and other links. i did not get the right solution

I am Getting value as 8.5265128291212E-14 instead of getting 0 or zero in Textbox when values changed and calculated.
happens in tbx10

In worksheet the values are changed as per below change events
in other words want to replica the textbox as cells as worked in worksheet

Private Sub tbx10_Change()
ws.Cells(curRow, 10).Formula = "=K" & curRow & "+L" & curRow & "-M" & curRow  
tbx10.value = Format(Sheet1.Range("A" & curRow), "0.00") 
End Sub   

Private Sub tbx11_Change()
tbx11.value = ws.Cells(curRow, 11).value
tbx10.value = Val(tbx11.value) + Val(tbx12.value) - Val(tbx13.value)
End Sub   

Private Sub tbx12_Change()
tbx12.value =ws.Cells(curRow, 12).value 
tbx10.value = Val(tbx11.value) + Val(tbx12.value) - Val(tbx13.value)
End Sub   


Private Sub tbx13_Change()
tbx13.value = ws.Cells(curRow, 13).value   
tbx10.value = Val(tbx11.value) + Val(tbx12.value) - Val(tbx13.value)
End Sub

Thanks
NimishK

 

[Kenneth Hobson]

Here, you rounded the value.

tbx10.value = Format(Sheet1.Range("A" & curRow), "0.00")

 

[NimishK]

Thank you so much
only change i made in your syntax

tbx10.value = Format(Sheet1.Range("A" & curRow).value, "0.00")

NimishK