For Each Prozess As Process In Process.GetProcesses()
    If (Prozess.ProcessName = "Notepad") Then ' Ohne die Zeile kannst du alle 
    ' Prozesse ausgeben und auslesen lassen
        Dim pf1 As PerformanceCounter = New PerformanceCounter("Process", _
          "Working Set - Private", Prozess.ProcessName)
        Debug.WriteLine("{0}:{1}  {2:N}MB", Prozess.ProcessName, "Private" & _
        "Working Set     ", pf1.NextValue() / 1024 / 1024)
    End If
Next