sorry you should start from 1

Code:
'read number after x after dot
 For d = 1 To UBound(splitLongNoAfterX)
    Debug.Print "number after x till dot : " & IIf(InStr(splitLongNoAfterX(d), ".") = 0, splitLongNoAfterX(d), Replace(Mid(splitLongNoAfterX(d), 1, InStr(splitLongNoAfterX(d), ".")), ".", ""))
Next