Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long 
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
 
        oStream = oFSO.CreateTextFile("C:\Test\file.xls", True)
        oStream.Close()
        'xls datei öffnen
        Call ShellExecute(hwnd, "Open", "C:\test\file.xls", "", App.Path 1)
 
 
    End Sub

Liebe Gr?sse,
Simon