try something like this

Code:
longNumber1 = "958.30.65.667.54.222.4444.9876x10.20.999.8765.7654.10.90.21x125"

splitLongNoAfterX = Split(longNumber1, "x")

 
'read number after x after dot
 For d = 0 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