Letter signature inserting before the body

I'm trying to programmatically create a letter and getting some problem.
On some workstations my vba-macro working wrong.

Details:
1. macro create replyAll to some letter
2. macro get the body of letter frome some template and insert it to the replyAll
3. then macro choose the signature
and on some workstations result letter have signature before body.

How can i fix this problem?
I want to have the same structure of letter on any workstation. Body and then signature, but not vice versa.
Using Outlook 2010 and code:

Code:

---

Sub Reply_finish()
    path = "\\SHARED\mail_templates\Reply_finish.msg"
    sName = "Notifications" 'Signature name
   
    Dim oApp As New Outlook.Application
    Dim oSel As Outlook.Selection
   
    Set oSel = oApp.ActiveExplorer.Selection
   
    Dim strMessageClass As String
     
    Set oItem = oSel.Item(1)
    strMessageClass = oItem.MessageClass
   
    If (strMessageClass = "IPM.Note") Then
        Set oMailItem = oItem
        Set reply = oItem.ReplyAll
        reply.BCC = oItem.BCC
       
        Set tempItem = OpenTemplate(path)
        reply.HTMLBody = AddTextToHtml(tempItem.Body, reply.HTMLBody)
        reply.To = tempItem.To
        Set tempItem = Nothing
       
        reply.Display
        Call SetSignature(reply, sName)
    End If
   
    Set oApp = Nothing
    Set oExp = Nothing
    Set oSel = Nothing
End Sub


Sub SetSignature(itm, signName)
    If signName <> "" Then
        itm.GetInspector.CommandBars.Item("Insert").Controls("&Ïîäïèñü").Controls(signName).Execute
    End If
End Sub

Function AddTextToHtml(text, html) As String
    strStamp = "<p class=MsoNormal>" & text & "<o:p></o:p></p>"
    intTagStart = InStr(1, html, "<body", _
    vbTextCompare)
    intTagEnd = InStr(intTagStart + 5, html, ">")
    strBodyTag = _
    Mid(html, _
    intTagStart, intTagEnd - intTagStart + 1)
    AddTextToHtml = Replace(html, strBodyTag, strBodyTag & strStamp)
End Function

Function OpenTemplate(path) As Outlook.MailItem
    Dim Item As Outlook.MailItem
    Set Item = Application.CreateItemFromTemplate(path)
    Set OpenTemplate = Item
End Function

---