Dim monitor As New PerformanceCounter monitor.CategoryName = "Process" monitor.CounterName = "Working set - private" monitor.InstanceName = "firefox.exe" MsgBox(monitor.RawValue \ 1024 & "K")