Private Sub EditFile(ByVal sFile As String, ByVal sPara As String)
        Try
            System.Diagnostics.Process.Start(sFile)
        Catch ex As Exception
            'Hier gibt es ohne "Try-Catch" immer die
            'Fehlermeldung "System kann angegebene Datei nicht finden",
            'obwohl alles funzt???
        End Try
        If sPara > "" Then SendKeys.Send("^{f}" & sParam & "{ENTER}" & "{ESC}")
        ' folgende Zeilen sind angefügt worden:
        Do
            Application.DoEvents()
        Loop While Not System.Diagnostics.Process.GetCurrentProcess.WaitForExit( _
          0.1)
        MsgBox("fertig")
    End Sub