Una posible solucion sería esta:
Código vb:
Ver originalnProds = botonprods(i).index \ 4 '\ Devuelve el entero aunque en este caso
nProds = botonprods(i).index / 4 '/ Tambien lo hara porque nProds es Integer
If botonprods(i).index Mod 4 > 0 Then nProds = nProds + 1
Lo que obviamente hacemos es que si la división tiene resto sumamos uno al valor previamente obtenido
Por si no lo has tenido en cuenta ten presente que:
For i = 0 To 8
Next i
Al llegar a este punto
i = 9 lo comentos por si debes actuar en consecuencia.