As far as I know, there is no "simple" way to do this in VB: but ... you could log it and then read the log:
An Easy Way to Count Pages Printed[
^] - the log file will be tab separated values, so most CSV readers shoud give you the info with just a change to the field separator character.
[edit]
In Win10, it's a slightly different process: Run Computer Management from Cortana, Then "System Tools ,,, Performance ... Data Collector Sets ... User Defined". Right click, "New ... Data Collection Set" ... "Create Manually" and follow the dialogs from there.
[/edit]