Je zou deze nog kunnen proberen als je alleen de eerste ..x.. wilt hebben.
Function jec(cell As String) As String
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[^\d+x\d+(\d\.|,+)]"
jec = Replace(.Replace(cell, ""), ",", "")
End With
End Function