Problem with SelStart when inserting character into text box by clicking a button

[PeterMAS]

I designed a keyboard on a sub form to insert letters with diacritics in a text box at the cursor. The following code works OK if I don't use my computer keyboard (that's a big if). At that point, it will only add text after the last character in the text box. Here is the code on a button to insert the character á. N.B. These aren't my object names, I changed them to make the code more readable.

Private Sub cmdLcáInsert_Click()
Dim HoldValue As Integer
HoldValue = Forms!frmMain!fsbSub.Form!txtText.SelStart

Forms!frmMain!fsbSub.Form!txtText = _
Mid(Forms!frmMain!fsbSub.Form!txtText, 1, Forms!frmMain!fsbSub.Form!txtText.SelStart) & _
"á" & _
Mid(Forms!frmMain!fsbSub.Form!txtText, Forms!frmMain!fsbSub.Form!txtText.SelStart + 1)

Forms!frmMain!fsbSub.Form!txtText.SelStart = HoldValue + 1

Suggestions will be gratefully received. Thank you.

 

[gol4]

While I don't fully understand what you are trying to do. I did a quick test and anywhere I clicked in my textbox named text1 I could make the à appear with my code below.

<code>
Private Sub Text1_Click()
Dim newText As String
newText = Left(Text1, Text1.SelStart) & Chr(224)
newText = newText & Mid(Text1, Text1.SelStart + 1)
Text1 = newText
End Sub
</code>

Perhaps a better explaination of what you are attempting would bring more responses.