Selamat malam Om @Caton

saya mencoba untuk membaca Device ID komputer dan kode berhasil dengan baik

akan tetapi ketika saya coba di komputer saya yang lain , malah muncul error

Unable to open registry key "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId" for reading

ini kode vba yg saya gunakan

Sub DataID()
    
    Dim objShell As Object
    Dim DeviceID As String
    
    Set objShell = CreateObject("WScript.Shell")
    DeviceID = VBA.Replace(VBA.Replace(objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId"), "{", ""), "}", "")
    
End Sub

apa yang harus saya perbaiki yaa om