ぐぐって見つけただけですが　VB2005 
system.management を参照追加しておいて　http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2226342&SiteID=1 
のvb.netの例で動きました。（でも当方のCPUでは、　４０（℃）しか出ないようですが） 
Dim searcher As New System.Management.ManagementObjectSearcher( _ 
                "root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature") 
以下省略・・・