Доброго Вам времени суток
Уважаемые господа

поздравляю всех с Новым годом, желаю всего самого наилучшего

при наличии времени прошу Вас помочь

мне нужно чтобы при нажатии сочетаний клавиш
Shift+Enter в текстовый бокс вставлялся вот этот тег <br>

вот этот код, дает мне этот результат

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
а уже после вставляется нужный мне тег

подскажите как изменить код
чтобы вначале вставлялся тег а уже после перевод строки

с Уважением и Благодарностью
Намик

Большое Вам спасибо
то что нужно

С Уважением и Благодарностью
Намик