The following code in the KeyPress event of the edit box will not work:

If nKeyCode = -6 Then

This.Value = SubStr(This.Value,1,ThisForm.nSelStart) + Chr(176) + SubStr(This.Value,ThisForm.nSelStart+1,Len(This.Value))

This.selStart = ThisForm.nSelStart + 1

EndIf

The cursor still goes back to place 0.