[RESOLVED] put a variable in selection

Hello people I wrote a code
that navigates into the pageheader in microsoft word,
the script removes 6 characters then add another number,
I wrote in this code "123123"
I have used
Selection.TypeText Text:=""

how do I put a variable instead of type a number
example
myVar=666666

it adds the myVar value(666666) instead of 123123

PHP Code:

---

 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Application.Run MacroName:= _
        "TemplateProject.tw4winProtection.tw4winKeyBackSpace"
    Selection.TypeText Text:="123123" 'here is the example number I want to replace with a variable 
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 


---

Thank you in advance

I assume it would be:

Code:

---

selection.typeText text:=myVar

---