How to use kill Process for Excek in dot net

Private Sub Button1_Click

(ByVal sender As System.Object,

 ByVal e As System.EventArgs) Handles Button1.Click

Dim pProcess() As Process = 

System.Diagnostics.Process.GetProcessesByName("EXCEL")
For Each p As Process In pProcess
            p.Kill()
        Next

        Dim pProcess2() As Process = 

        System.Diagnostics.Process.

        GetProcessesByName("POWERPNT")

        For Each p As Process In pProcess2
           p.Kill()
        Next
    End Sub