Ускорить время выполнение программы - VB

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

Программа (DISP.rar) долго работаеть. Если работать из сети ('pt = "\\192.168.10.2\disp\")- очень долго(6-7 мин.). Помогите пожалуйста, как можно ускорить эта задачу?

Решение задачи: «Ускорить время выполнение программы»

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

                            <font color="00AA00">' +++ Вспомогательный Excel</font>
    <font color="blue">Dim</font> xls <font color="blue">As</font> Excel.Application
...
    <font color="00AA00">'+++ Загрузить BOSH7.XLS</font>
    <font color="blue">Set</font> xls = GetObject(path & nime)
...
            <font color="00AA00">'+++ Заменить все строки на </font>
            .Cells(k, <font color="darkblue"><b>2</b></font>).Value = xls.Worksheets(SH).Range(<font color="teal">"B"</font> & n).Value
...
            nn=n+<font color="darkblue"><b>16</b></font>
            kk=k+<font color="darkblue"><b>16</b></font>
            .Cells(kk, <font color="darkblue"><b>2</b></font>).Value = xls.Worksheets(SH).Range(<font color="teal">"B"</font> & nn).Value
...
    <font color="blue">Loop</font> <font color="blue">Until</font> xls.Worksheets(SH).Range(cel).Value = <font color="darkblue"><b>0</b></font>

...
    <font color="00AA00">'+++ Убрать за собой, если хочешь</font>
    xls.Quit
    <font color="blue">Set</font> xls = <font color="blue">Nothing</font>

                        