Dim blnCtrl As Boolean
Private Sub txtInsert_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With txtInsert
If KeyCode = 17 Then
blnCtrl = True
ElseIf KeyCode = 82 And blnCtrl Then
.Text = Left(.Text, .SelStart) & Chr(174) & Right(.Text, Len(.Text) - .SelStart)
blnCtrl = False
ElseIf KeyCode = 84 And blnCtrl Then
.Text = Left(.Text, .SelStart) & Chr(153) & Right(.Text, Len(.Text) - .SelStart)
blnCtrl = False
Else
blnCtrl = False
End If
End With
End Sub