Visual Basic - Numero de serie disco duro

Hola tengo un programa que utiliza un numero de serie que lo saca del numero de serie del disco duro y luego le debo ingresar un numero de activacion para que funcione el programa. y quiero que alguien me ayude para ver como hace el computador para calcular el numero de activacion. ejemplo:
1. numero de serie que me da el programa:
numero de serie: 2016-1b21-1402
numero de activa: 10346-6195

2. numero de serie: 2016-3b3b-19e4
numero de activa: 6232-10357
si alguien puede ayudarme le estare muy agradecido.

Debes estar de güasa si con estos datos crees que alguien te va a dar el algortimo de obtención de la clave...
Tienes varias opciones:
a) Compra una nueva licencia para el programa :-)
b) Crackeas el programa para que no te pida el numero de serie.
c) Otras alternativas (en función de la información que puedas obtener acerca de como obtiene el numero de serie y cualquier otro dato que obtengas investigando un poco el programa)

Un saludo, con esos datos no se me ocurre nada mas

Independientemente de para qué lo quieras, aquí te digo como obtenerlo, que creo que es lo que yo entiendo en tu consulta.

Private Sub Form_Load()
Dim f As FileSystemObject, Dr As Drive
Set f = CreateObject("Scripting.FileSystemObject")
Set Dr = f.GetDrive("C:\")
MsgBox Dr.SerialNumber
Set f = Nothing
End Sub

Lo he metido en el evento onLoad, pero ni que decir tiene que tu lo puedes usar dónde quieras.