Cdbl [VBA]

option explicit

public sub cdbl_()

  dim d as double

  d = cdbl("42")

  d = cdbl("4.2")

  d = cdbl("    4.2   ")

' d = cdbl("forty two") '' Run-time error '13': Type mismatch

  d = cdbl("859047690284854948902")
  msgBox(d) ' 8.59047690284854E+20

end sub