need a Scientific Notation to real number converter

[PhilOfPerth]

Hi all
Need help with a Scientific Notation to real number converter.   Below is a mockup for testing the Function but if I do the
calculations by hand the outputs don't match.  

Thanks in advance

Maybe I'm missing the point, but here's a simple method I wrote some time back:

Input "Enter your scientific notation number"; sn$
sn$ = UCase$(sn$)
p = InStr(sn$, "E")
lft = Val(Left$(sn$, p - 1))
rt = Val(Right$(sn$, Len(sn$) - p))
Print lft, rt
dn = lft * 10 ^ rt
Print dn
Sleep