How do I get the current version of service pack through VB?

I need to make a prompt in VB that tells the user what the current Office serivce pack version is, and if it is up-to-date.

I know it should be fairly simple, as I have once used it before.

Thanks for your help in advance,