Dim MyProcess As Process
        Dim ProcName As String = "ProcessName"
        Dim pAllProcs As Process() = System.Diagnostics.Process.GetProcesses
 
        ' Schleife über alle Processe
        Dim oProc As Process
        For Each oProc In pAllProcs
            If oProc.Processname = ProcName Then
                MyProcess = oProc
                Exit For
            End If
        Next
 
        ' Process beenden
        MyProcess.Kill()