Вначале событие а уже после перевод строки - VB

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

Доброго Вам времени суток
Уважаемые господа
поздравляю всех с Новым годом, желаю всего самого наилучшего
при наличии времени прошу Вас помочь
мне нужно чтобы при нажатии сочетаний клавиш
Shift+Enter в текстовый бокс вставлялся вот этот тег
вот этот код, дает мне этот результат
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
ShiftDown = (Shift And vbShiftMask) > 0
If KeyCode = vbKeyReturn Then
If ShiftDown And KeyCode Then
SendKeys "<" + "br" + ">"
End If
End If
End Sub
однако вначале происходит перевод строки т.е. Enter
а уже после вставляется нужный мне тег
подскажите как изменить код
чтобы вначале вставлялся тег а уже после перевод строки
с Уважением и Благодарностью
Намик

Решение задачи: «Вначале событие а уже после перевод строки»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Text1_KeyDown(KeyCode <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>)
    <font color="blue">Dim</font> blnShiftDown <font color="blue">As</font> <font color="blue">Boolean</font>
    
    blnShiftDown = (Shift <font color="blue">And</font> vbShiftMask) > <font color="darkblue"><b>0</b></font>

    <font color="blue">If</font> blnShiftDown <font color="blue">Then</font>
        <font color="blue">If</font> KeyCode = vbKeyReturn <font color="blue">Then</font>
          <font color="blue">SendKeys</font> <font color="teal">"{LEFT}"</font>
          <font color="blue">SendKeys</font> <font color="teal">"<"</font> + <font color="teal">"br"</font> + <font color="teal">">"</font>
          <font color="blue">SendKeys</font> <font color="teal">"{ENTER}"</font>
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">End</font> <font color="blue">If</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>
                        