Function InStrDecN(xStr, xN)
Dim i, x, sep
InStrDecN = "": sep = Application.International(xlDecimalSeparator)
x = xStr
For i = 1 To Len(x)
Select Case Mid(x, i, 1)
Case "0" To "9", sep
Case Else
Mid(x, i, 1) = " "
End Select
Next i
x = Split(Application.WorksheetFunction.Trim(x))
On Error Resume Next
InStrDecN = Val(Replace((x(xN - 1)), sep, "."))
End Function