Trápím se, trápím, ... Dopracoval jsem se k tomuhle

Imports Microsoft.Office.Interop
Module Module1
    Sub Main()
        Dim objExcel, objWorkbook, objWorkSheet
        objExcel = CreateObject("Excel.Application")
        objExcel.Application.Visible = True
        objWorkbook = objExcel.Workbooks.Open("C:\vibas\zdroj.xlsx")
        objWorkbook.Worksheets("list1").activate()
        objWorkSheet = objWorkbook.Worksheets("list1")
        objWorkSheet.SaveAs("c:\scripts\test.csv", "xlCSVWindows")
        objExcel.Workbooks.Close()
        objExcel.Quit()
    End Sub
End Module

Teď mi to na tom SaveAs křičí "COMexception was unhandled", Výjimka na základě hodnoty HRESULT: 0x800A03EC.