I don't think there's a way to do it. You could rely on the implicit CDbl()
conversion in this situation:
Dim myPrettyNumber As Double = "1E-16"
Or if you just want to be able to read it more easily, add a comment:
Dim myUglyNumber As Double = 0.0000000000000001 ' 1E-16
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…