Nije ti to baš neki način zaštite ali u svakom slučaju bolji nego nikakav.
A za navedeni problem uzimaj apsolutnu vrijednost tj. ako je negativna da bude pozitivna i to je to.

Serijski broj diska je alfanumerička vrednost, koja izgleda kao na pr. WD-WMASY7698268, i ona dakle ne može biti ni negativna ni pozitivna.

Ono što ti koristiš je verovatno Volume Serial Number, tj logički serijski broj particije koji generiše OS, tj. Win u toku formatiranja.
Koliko mi je poznato, ta vrednost ne zavisi od proizvođača hardvera, odnosno modela diska, već se generiše nekim tamo algoritmom. Inače, ta brojka, kao što je ranije rečeno, se lako da lažirati, ispraviti, kopirati na drugi računar putem Norton Ghost i sličnih programa itd, i ni malo nije pouzdana za zaštitu aplikacije od kopiranja...

Function HDDBroj(drvpath)

Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName _
(fs.GetAbsolutePathName(drvpath)))
HDDBroj = d.SerialNumber

End Function

koristio sam ovaj code

ako ga postavim u mde , iskljucim shift key , ubacim logo u sve reporte
mislim da ce za prosjecnog korisnika biti dovoljno da se "pegla" i odustane od kopiranja

kako mogu rijesiti taj problem sa negativnim brojem

Mozda ne bi bilo lose da pogledate...

Neke od prethodnih diskusija na temu zaštite:

http://www.elitesecurity.org/t391848-0#2525153

gledao sam ali nisam nasao rjesenje

Šta te sprečava da napraviš proceduru:
Ako je vrednost negativna, pomnožiš je prvo sa -1, pa onda dalje radiš sa pozitivnim brojem?

Ili ja nisam dobro razumeo šta tebe zapravo muči?

rjesio sam to kada sam postavio polje umjesto number na text

njemu ne smeta negativno :)