Public Sub StrNumParse(StrNum As String) As Double
Dim rfl As Reflector
Dim nf As Object = rfl.RunStaticMethod("java.text.NumberFormat", "getInstance", Null, Null)
rfl.Target = nf
Dim dbl As Double = rfl.RunMethod2("parse", StrNum, "java.lang.String")
Return dbl
End Sub