Get PC Device, Windows & Excel Information using Win32 library

[inddon]

Hello There,

I would like to have a VBA Function(s) which would get the below information and return the result as a String.

I tried to search on the web and got some but not all the values. My code is quite messier and it takes quite some time to get the results. :
Win32_ComputerSystem
Win32_Processor
Win32_OperatingSystem.


Therefore, I request someone could help in providing a proper and smarter VBA Function(s) which will deliver the 3 results in seperate Functions (Device Specification, Windows Specification & About MS Excel)


Device Specification & Windows Specification:
I got the information from My PC --> Properties
Added new line, "Total Used Memory"

About Excel:
From MS Excel. File--> Account --> About Excel
Added new line, "Total Used Memory"


Function Result:

--------------------------
Device Specification
--------------------------
Device name : MyLaptopPC1
Processor : Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz 2.60 GHz
Installed RAM : 16.0 GB (15.9 GB usable)
Total Used Memory: 6.0 GB
Max Capacity RAM: 32.0 GB
System type : 64-bit operating system, x64-based processor

--------------------------
Windows Specification
--------------------------
Edition : Windows 10 Pro
Version : 21H1
OS build : 19043.1826

--------------------------
About MS Excel
--------------------------
Version : Microsoft® Excel® for Microsoft 365 MSO (16.0.14326.21008) 64-bit
Total Used Memory : 2 MB
(If possible memory used for the current workbook. If not possible then memory used for Excel)


Thank you.

Look forward to hearing from you.

Regards,
Don