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

You have to isseu the NODEFAULT inside your IF statement. But I think that Tore's answer is the best so far.