Are we certain that the above VB code works?
I have tried it on Windows 10 32-bit and 64-bit and got varying results.
I assume 10 is not that different from 8 as far as the DigitalProductID is concerned.

@dos on Win 10 now gives a value of 10.0, when Win 10 first came out it was 6.2, the same as Win 8.x (I think, as I never got into 8).