I donβt think there is a way to do this. You can rely on implicit conversion CDbl()in this situation:
Dim myPrettyNumber As Double = "1E-16"
Or, if you just want to read easier, add a comment:
Dim myUglyNumber As Double = 0.0000000000000001 ' 1E-16