В excel макрос работает а переношу в VB6 чтобы сделать DLL не хочет работать.

Формулировка задачи:

В excel макрос работает а переношу в VB6 чтобы сделать DLL не хочет работать. Помогите, пожалуйста, что не то?
' запись данных в файл
Sub v_txt()
Dim a(24 To 28) As String
Dim b(24 To 28) As String
Dim rec As String
Dim i, f As Integer
'Заполнение массива план
For i = 24 To 28
a(i) = Worksheets("свод ").Cells(i, 4)
Next i
For i = 24 To 28
b(i) = Worksheets("СВОД ").Cells(i, 5)
Next i
'запись массива впеременную rec
For i = 24 To 28
rec = rec & a(i) & vbTab & b(i) & vbTab
Next i
'запись переменной в файл
f = FreeFile
Open "c:\30" For Output As f
Print #f, rec
Close f
End Sub

Решение задачи: «В excel макрос работает а переношу в VB6 чтобы сделать DLL не хочет работать.»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> objExcel <font color="blue">As</font> <font color="blue">Object</font>

<font color="blue">Private</font> <font color="blue">Function</font> Launch_Excel() <font color="blue">As</font> <font color="blue">Boolean</font>
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
    <font color="blue">Set</font> objExcel = GetObject(, <font color="teal">"Excel.Application"</font>) <font color="00AA00">'Получаем не абы что, а что надо</font>
    <font color="blue">If</font> objExcel <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font> <font color="blue">Set</font> objExcel = CreateObject(<font color="teal">"Excel.Application"</font>) <font color="00AA00">'Если excel не запущен, запускаем</font>
    <font color="blue">If</font> <font color="blue">Not</font> objExcel <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font> 
        Launch_Excel = True
        objExcel.Visible = True
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Function</font>

                        