VB.NET Tuer un processus

Dim plist As Process() = Process.GetProcesses()
For Each p As Process In plist
Try
If p.MainModule.ModuleName.ToUpper() = "FIREFOX.EXE" Then p.Kill()
Catch
End Try
Next p