[abuzarei]

Try
            Clipboard.SetText(GetDriveSerialNumber())
            MsgBox(GetDriveSerialNumber())
        Catch exp As Exception
            'MsgBox(exp.Message)
        End Try

 Public Function GetDriveSerialNumber() As String
        Dim DriveSerial As Long
        Dim fso As Object, Drv As Object
        fso = CreateObject("Scripting.FileSystemObject")
        Drv = fso.GetDrive(fso.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
        With Drv
            If .IsReady Then
                DriveSerial = .SerialNumber
            Else
                DriveSerial = -1
            End If
        End With
        Drv = Nothing
        fso = Nothing
        GetDriveSerialNumber = Hex(DriveSerial)
    End Function