Copying random length part of the string.

[XeNoMoRpH]

I tested it and was able to get it to return "4257."
Changing it to the following fixed it for me:

Code:

str = "Change page: < 1 2 3 4 5 6 7 8 9 10 ... > | Displaying page 1 of 426, items 1 to 10 of 4257."
num = mid(str,instrrev(str," "),len(str)-instrrev(str," "))
msgbox num

That returned "4257" for me. Since I'm not entirely sure how VBScript functions work (in terms of memory usage and processing), it might make sense to do:

Code:

position = instrrev(str," ")
num = mid(str,position,len(str)-position)

instead.