El problema es que estas declarando la variable numofpages dentro del sub "test" ,de esa forma la variable solo se puede utilizar dentro de "test" y cuando la llamas desde otro sub no es reconocida
Puedes probar de la siguiente manera?
Dim numberOfPages As Double 'Lo ponemos fuera del sub "test"
Sub test()
Dim element As IHTMLElement
Dim elements As IHTMLElementCollection
Dim ie As InternetExplorer
' esto lo comentamos pq ya lo hemos declarado al principio ' Dim numberOfPages As Double