Принцип работы создания файла Excel из Visual Basic 6.0 - VB

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

Использую:

Visual Basic 6.0
Excel 2000 и Excel 2003
Windows XP SP2

Приветствую.
Мне необходимо понять, как работать с Excel в Visual Basic 6.0 . Обошёл вес форум, но вразумительного, для себя ничего не нашел, так как большая часть кода убирается по умолчанию. Может быть, я плохо искал.
И так сам вопрос. Что бы понять принцип работы создания файла Excel из Visual Basic 6.0 прошу Вас привести полный пример рабочего кода.
Алгоритм:

Создать файл в "C:\my.xls"
В котором два рабочих листа "English" и "Русский"
На листе  "Русский" в ячейке А1 (="Первая ячейка")  С15 (=3*2+10) 
Активный рабочий лист "English"

Благодарю за понимание и помощь.

Решение задачи: «Принцип работы создания файла Excel из Visual Basic 6.0»

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

                            <font color="blue">Dim</font> bk <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Dim</font> sh <font color="blue">As</font> <font color="blue">Object</font>

    <font color="blue">Dim</font> XL <font color="blue">As</font> Excel.Application                         <font color="00AA00">' Microsoft Excel 11.0 Object Library</font>
    <font color="blue">Set</font> XL = CreateObject(<font color="teal">"Excel.Application"</font>)
    
    XL.Visible = False
    
    XL.Workbooks.Add
    XL.Sheets(<font color="darkblue"><b>1</b></font>).<font color="blue">Name</font> = <font color="teal">"English"</font>
    XL.Sheets(<font color="darkblue"><b>2</b></font>).<font color="blue">Name</font> = <font color="teal">"Русский"</font>
    
<font color="00AA00">' или так</font>
    XL.Sheets(<font color="darkblue"><b>2</b></font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>) = <font color="teal">"Первая ячейка"</font>
    XL.Sheets(<font color="darkblue"><b>2</b></font>).Cells(<font color="darkblue"><b>15</b></font>, <font color="darkblue"><b>3</b></font>).FormulaR1C1 = <font color="teal">"=3*2+10"</font>
    XL.Sheets(<font color="darkblue"><b>2</b></font>).Cells(<font color="darkblue"><b>15</b></font>, <font color="darkblue"><b>3</b></font>).Font.Bold = True
    XL.Sheets(<font color="darkblue"><b>2</b></font>).Cells(<font color="darkblue"><b>15</b></font>, <font color="darkblue"><b>3</b></font>).Font.Size = <font color="darkblue"><b>14</b></font>
    
<font color="00AA00">'или по другому</font>
    <font color="blue">Dim</font> rng <font color="blue">As</font> Range
    <font color="blue">Set</font> rng = XL.Sheets(<font color="darkblue"><b>2</b></font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>)

    rng.Value = <font color="teal">"Первая ячейка"</font>
    rng.Offset(<font color="darkblue"><b>14</b></font>, <font color="darkblue"><b>2</b></font>).FormulaR1C1 = <font color="teal">"=3*2+10"</font>
    rng.Offset(<font color="darkblue"><b>14</b></font>, <font color="darkblue"><b>2</b></font>).Font.Bold = True
    rng.Offset(<font color="darkblue"><b>14</b></font>, <font color="darkblue"><b>2</b></font>).Font.Size = <font color="darkblue"><b>14</b></font>
    
    XL.ActiveSheet.SaveAs App.Path & <font color="teal">"\file1.xls"</font>
    XL.Quit
    <font color="blue">Set</font> XL = <font color="blue">Nothing</font>
                        