Visual Basic.NET - Parar un programa .exe desde VB

Private Sub DetenerProceso(ByVal Nombre As String) ' ej : CherrytreePortable  (sin .exe).

    Dim procesos As System.Diagnostics.Process

    For Each procesos In System.Diagnostics.Process.GetProcesses

        If procesos.ProcessName = Nombre Then procesos.Kill()

    Next

End Sub

Dim P As System.Diagnostics.Process

Try

    For Each P In System.Diagnostics.Process.GetProcesses

        If P.ProcessName.ToUpper Like "CHERRYTR*" Then

            P.Kill()

        End If

    Next

Catch

End Try