>>Using magic numbers?
>
>It is not my magic, his:) I only deal with math part of it.

Here's my take on it

lnFirst = 32000
lnPageSize = 25
lnStart = thisform.txtStart.Value

thisform.txtPageno.Value = CEILING((lnStart - lnFirst + 1) / lnPageSize )