Public Sub Execute(ByVal aFilename As String)
        Dim p As New Process
        p.StartInfo.FileName = "EXCEL.EXE"
        p.StartInfo.Arguments = aFilename
        p.StartInfo.UseShellExecute = True
        p.Start()
        p.WaitForExit()
    End Sub
 
   ' Beispielaufruf
    Execute("C:\test.xls")
 
    MessageBox.Show("Excel beendet!")