Private Sub DateiVerarbeiten(ByVal progFile As String, _
                                 ByVal docFile As String)
 
        Dim p As New Process
 
        ' Auszuführende Programm
        p.StartInfo.FileName = progFile
 
        ' Arguments, Startparameter des auszuführenden Programms
        p.StartInfo.Arguments = "-i " & docFile
 
        ' Ausführungsort 
        p.StartInfo.WorkingDirectory = IO.Path.GetDirectoryName(docFile)
 
        ' Action!
        p.Start()
 
    End Sub