CCur(Num|$)
Conversion
Convert to a currency value.
Sub Main Debug.Print CCur("1E6") ' 1000000 End Sub