السلام عليكم أخي الكريم
في الحقيقة أنا مشتغلتش على الأكسس لكن أعتقد الدالة التالية والتي تعمل في الإكسيل ممكن تشتغل معاك أو يمكن التعديل عليها بما يتناسب مع الأكسس

Sub Test_MBSerialNumber_UDF()
    MsgBox MBSerialNumber
End Sub

Function MBSerialNumber(Optional strComputer As String = ".") As String
    Dim v           As Variant
    Dim vName       As Variant
    Dim vUUID       As Variant

    With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        For Each v In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = v.Name
            vUUID = v.UUID
        Next v
    End With

    MBSerialNumber = vName & ", " & vUUID
End Function