Imports System.Diagnostics
.
.
Public Sub Execute(ByVal aFilename As String)
   Dim p As New Process
   p.StartInfo.FileName = aFilename
   p.StartInfo.UseShellExecute = True
   p.Start
   p.WaitForExit()
End Sub
' Beispielaufruf
Execute("c:\test.xls")

p.WaitForExit()]