strComputer = "."
strC = ""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_WinSAT")
For Each objItem in colItems
strC = strC & "Processor: " & objItem.CPUScore & " (" & FormatNumber(((objitem.CPUScore / 5.9 )* 100), 2)  & "%)" & vbcrlf
strC = strC & "Memory: " & objItem.MemoryScore & " (" & FormatNumber(((objitem.MemoryScore / 5.9 )* 100), 2)  & "%)" & vbcrlf
strC = strC & "Primary hard disk: " & objItem.DiskScore & " (" & FormatNumber(((objitem.DiskScore / 5.9 )* 100), 2)  & "%)" & vbcrlf
strC = strC & "Graphics: " & objItem.GraphicsScore & " (" & FormatNumber(((objitem.GraphicsScore / 5.9 )* 100), 2)  & "%)" & vbcrlf
strC = strC & "Gaming graphics: " & objItem.D3DScore & " (" & FormatNumber(((objitem.D3DScore / 5.9 )* 100), 2)  & "%)" 
Next

strC = strC & vbcrlf & vbcrlf & "(any number above 67.8% = should work well)" 
strC = strC & vbcrlf & vbcrlf & "(any number above 84.75% = fast)" 

varToUser = msgbox (strC, 0,"Windows Experience Index")