Option Compare Database
Function HdNum() As String
    Dim fsObj   As Object
    Dim drv     As Object
    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")
    HdNum = Hex(drv.SerialNumber)
End Function

Sub HD()
    MsgBox HdNum
End Sub