Hi Steven,

I have not read all messages in this thread, but in order to do what I think you want, you should do like this in the keypress event:

if nKeyCode=-6
  NODEFAULT 
  nKeyCode=chr(176)
  DODEFAULT()
endif

>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.