高手请来帮帮忙，关于VBA

我在Excel中写了一个控件，但是运行时出现如下报错“应用程序定义或对象定义错误”
部分代码如下：
Dim j As Integer
j = 1
Do While j <= SystemID '把每个系统另存为TXT
        fileName = CStr(SysIDarray(SystemID))
        Worksheets(j + 1).SaveAs fileName:="CSV\" & fileName & ".csv", FileFormat:=xlCSV '另存为CSV    
    j = j + 1
Loop 'j 把每个工作表另存为CSV

请各位大侠帮帮忙。
急！！！
先谢过 --------------------编程问答-------------------- SysIDarray
SystemID
fileName
这些都是什么? --------------------编程问答-------------------- 这些是我定义的一些数组和变量名，后来发现问题了，我的Excel，VBA中不支持FileFormat:=xlTEXT。所以不知道怎样另存为文本文件（制表符分隔）格式。谢谢！ --------------------编程问答--------------------     ActiveWorkbook.SaveAs Filename:="D:\我的文档\Book1.txt", FileFormat:=xlText, _
        CreateBackup:=False

excel不支持另存为文本文件?什么版本呀

我的2003可以啊

补充：VB ,  控件