// Çözüldü

Dim localById As Process = Process.GetProcessById(TextBox1.Text)
TextBox2.Text = (localById.PrivateMemorySize64 / 1024).ToString