Вставка слова в word - VB

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

Здавствуйте.
При нажатии на кнопу открываеться шаблон документа в котором на второй строке надо вставить слово(т.е. "используется марка масла (вставляется слово из textbox на форме)") Переход по вертикали можно сделать, как я понимаю,... goto(wdgotoline,,3), а как указать место вставки по горизонтали?

Решение задачи: «Вставка слова в word»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> Word1()

    
    DoEvents
    frmStatus.Show vbModeless
    frmStatus.lblTitlle.Caption = <font color="teal">"Подключение к Microsoft Word ..."</font>
    frmStatus.ProgressBar1.Value = <font color="darkblue"><b>20</b></font>
    DoEvents
    <font color="blue">Call</font> SetTemp
    
    <font color="blue">Dim</font> myWord <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Set</font> myWord = CreateObject(<font color="teal">"Word.Application"</font>)
    myWord.Visible = False
    
    
    <font color="blue">Dim</font> myDoc <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Set</font> myDoc = CreateObject(<font color="teal">"Word.Document"</font>)
    
    
    myWord.Documents.<font color="blue">Open</font> mTmpFN
    <font color="blue">Set</font> myDoc = myWord.Documents(<font color="darkblue"><b>1</b></font>)
    
    myWord.ActiveWindow.View.ShowBookmarks = False
    
    
    DoEvents
    frmStatus.lblTitlle.Caption = <font color="teal">"Заполнение блока "</font><font color="teal">"Договор"</font><font color="teal">" ..."</font>
    frmStatus.ProgressBar1.Value = <font color="darkblue"><b>40</b></font>
    DoEvents
    
    
    <font color="00AA00">' Шапка договора</font>
    myDoc.Bookmarks(<font color="teal">"AgN"</font>).Range.Text = Doc.cAg.Agn
    myDoc.Bookmarks(<font color="teal">"AgDay"</font>).Range.Text = Doc.cAg.AgDay
    myDoc.Bookmarks(<font color="teal">"AgMonth"</font>).Range.Text = Doc.cAg.AgMonth <font color="00AA00">' lcase правка от 01.03.06</font>
    myDoc.Bookmarks(<font color="teal">"AgYear"</font>).Range.Text = Doc.cAg.AgYear
....
<font color="blue">End</font> <font color="blue">sub</font>

                        