Dim MyDouble1, MyDouble2, MySingle1, MySingle2 ' MyDouble1, MyDouble2 are Doubles. MyDouble1 = 75.3421115: MyDouble2 = 75.3421555 MySingle1 =CSng(
MyDouble1)
' MySingle1 contains 75.34211. MySingle2 =CSng(
MyDouble2)
' MySingle2 contains 75.34216.