Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT" & _
              "* FROM Win32_PhysicalMemory")
            For Each queryObj As ManagementObject In searcher.Get()
                Console.WriteLine("-----------------------------------")
                Console.WriteLine("Win32_PhysicalMemory instance")
                Console.WriteLine("-----------------------------------")
                Console.WriteLine("Capacity: {0}", queryObj("Capacity"))
                RAMcomplete = queryObj("Capacity")
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & _
              err.Message)
        End Try

B = 0
	ram_slot = ""
	ram_complete= 0
	Set colItems = objWMIService.ExecQuery("SELECT * FROM" & _
  "Win32_PhysicalMemory",,48) 
	For Each objItem in colItems 
		ram_slot 	= ram_slot & "Slot " & B & " : " & (objItem.Capacity / 1048576) & "" & _
  "MB" & " ;"
        	B = B +1
		ram_complete	= ram_complete + (objItem.Capacity / 1048576)  
	Next