Insert signature in Outlook 2003 at users cursor via VBA

I have found how to insert a signature using VBA and it works fine.  But, now I was wondering if it is possible to insert the signature at the users cursor in the email.  Currently the signature appends to the bottom of the email, but my users are now having difficulty with it when they reply or forward emails.  So, I would like to see if I can insert the signature where the user has but the cursor instead of appending it at the bottom of the email.

Below is the current code I have for the signatures.  One method I have used to insert text in the path was the "SendKey" function in VBA, but I am not sure how to do this with signatures.

Sub InsertSignature()
    Dim objFSO As Object, _
        objShell As Object, _
        objSignatureFile As Object, _
        olkMsg As Outlook.MailItem, _
        strSigFilePath As String, _
        strBuffer As String
    Set olkMsg = Application.ActiveInspector.CurrentItem
    Set objShell = CreateObject("Wscript.Shell")
    strSigFilePath = objShell.SpecialFolders("Desktop")
    If InStr(1, WinVer(), "Vista") Then
        strSigFilePath = Replace(strSigFilePath, "Desktop", "AppData\Roaming\Microsoft\Signatures\")
    Else
        strSigFilePath = Replace(strSigFilePath, "Desktop", "Application Data\Microsoft\Signatures\")
    End If
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Edit the signature file name on the following line as needed'
    Set objSignatureFile = objFSO.OpenTextFile(strSigFilePath & "NXW-FIRM.htm")
    strBuffer = objSignatureFile.ReadAll
    objSignatureFile.Close
    olkMsg.HTMLBody = olkMsg.HTMLBody & strBuffer
    Set objSignatureFile = Nothing
    Set objFSO = Nothing
    Set objShell = Nothing
    Set olkMsg = Nothing
End Sub
 
Function WinVer() As String
    Dim objShell As Object, strOS As String, strKey As String
    Set objShell = CreateObject("WScript.Shell")
    strOS = objShell.ExpandEnvironmentStrings("%OS%")
    If strOS = "Windows_NT" Then
        strKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
        WinVer = objShell.RegRead(strKey & "ProductName") & " " & objShell.RegRead(strKey & "CurrentVersion") & "." & objShell.RegRead(strKey & "CurrentBuildNumber")
    Else
        strKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\"
        WinVer = objShell.RegRead(strKey & "ProductName") & " " & objShell.RegRead(strKey & "VersionNumber")
    End If
    Set objShell = Nothing
End Function

Select allOpen in new window