iCurPos = ThisForm.edit1.SelStart >ThisForm.edit1.Value = Left( ThisForm.edit1.Value, iCurPos - 1 ) ; > + " New Text " ; > + SubStr( ThisForm.edit1.Value, iCurPos ) >
thisform.edit1.seltext="text to be inserted"