ник: FORMAT
Собственно говоря, оттуда перепишите в свои модули класс CDriveInfo
А потом на формопен повесьте код
Dim strDriveSN As String
Set CDI = New CDriveInfo
strDriveSN = CDI.GetDriveSerialNumber
MsgBox (strDriveSN)
strDriveSN возвращает имя жесткого диска. Сначала узнайте свой номер и проверяйте на совпадение strDriveSN со своим диском. И фсе.