提取磁盘序列号问题！急急！在线等！谢谢！

这是我的代码：
    Dim DriverSerialNumber As String
If regKey = 0 Then
    DriverCSerialNumber = DriverSerial("C")
    DriverCSerialNumber = Abs(DriverCSerialNumber)
    DriverSerialNumber = str(DriverCSerialNumber)
    DriverSerialNumber = Format(DriverSerialNumber, "0000000000")
confirm = MsgBox("数字 <" & DriverSerialNumber & "> ", 1, "提示信息")
重做系统后，数字 <" & DriverSerialNumber & "> 应该是不变？但是它变了，是什么原因？谢谢！