Extract the fraction from strings and calculate the result - UDF

[Juggler_IN]

I need help on extracting fractions from strings and calculate the result. For example-

1. ten thousand one hundred twenty three and 45/100 --- here i want to extract 45/100 and calculate it to 0.45
2. two hundred fifty five and 1/100 --- here i want to extract 1/100 and calculate it to 0.01

i will need a function to compute this and pass on to another subroutine.

 

[MickG]

Here's the basic Function !!

Function Dec(nStr As String) As Double
    Dim Sp As Variant
    Sp = Split(nStr, " ")
    Dec = Evaluate(Sp(UBound(Sp)))
End Function