Sub tewts()
Dim i As Double
i = 23423.56696
Debug.Print (Int(i * 1000) + IIf(Int(i * 10000) Mod 10 = 0, 0, 1)) / 1000
End Sub
Dim i As Double
i = 23423.56696
Debug.Print (Int(i * 1000) + IIf(Int(i * 10000) Mod 10 = 0, 0, 1)) / 1000
End Sub
i = 33.33301
result = Int(i * 1000 + 0.9) / 1000