'Consider the following code:-
Dim Value_1 As Integer
Dim Value_2 As Single
Dim Value_3 As Double
Dim Value_4 As Long
' If I type 1.012345678901234567890 it always truncates!
Value_1 = 1.01234567891237
Value_2 = 1.01234567891236
Value_3 = 1.01234567891236
Value_4 = 1.01234567891235
Dim Value_1 As Integer
Dim Value_2 As Single
Dim Value_3 As Double
Dim Value_4 As Long
' If I type 1.012345678901234567890 it always truncates!
Value_1 = 1.01234567891237
Value_2 = 1.01234567891236
Value_3 = 1.01234567891236
Value_4 = 1.01234567891235