Your data is not very clean:
853 exists several times because sometimes there is space

see next code

xNum = wsText.Range("$B$" & Val(I + 1)).Value
xNum = trim (xNum)