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}")
    End Sub