I try with

Private Sub Command2_Click()
Dim dNum As Double
Dim sNum As String

sNum = "1.333224E-3"
dNum = sNum
sNum = dNum

MsgBox dNum

End Sub

But is not GOOD !
Somebody can help me?

Thanks
Redg