How to Get List of Softwares installed on a machine

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32Reg_AddRemovePrograms")
Dim info As ManagementObject 
For Each info In search.Get()  
  Msgbox(info("InstallDate"))
  Msgbox(info("DisplayName").ToString)  
  Msgbox(info("Publisher").ToString)
Next