DESBORDAMIENTO ???

Hola Grupo !

tratando de evitar que me copien los archivos les coloco una rutina al
inicio del libro que al abrir me genera el serial del disco del pc con el
siguiente codigo:
Sub codigo()
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C:")))
serial = d.SerialNumber
End Sub

luego en otro pc cualquiera ejecuto un libro donde introduzco el serial
obtenido y obtengo una clave de acceso
con el siguiente codigo

Sub claves()
serialnum = InputBox("Serial")
clave = Left(Hex(serialnum), 2) & Right(Hex(serialnum), 2)
MsgBox clave
End Sub

lo he probado en varias ocasiones y con deferentes equipos y funciona
perfectamente
pero ahora trato de ejecutarlo en otra pc y me genera error 6 "desboramiento"
por que ????
el serial que obtengo es 2343545656
cual es el problema ? como corregirlo ?
GRACIAS...


Me alimento del conocimiento de todos