Hi Jason,

To test this code, create a form, add an edit box and a command button. Put this code in the click() of the button:

For x = 1 TO 100
This.Parent.Edit1.Value = This.Parent.Edit1.Value + chr(10) + Chr(13) + str(x)
This.Parent.Edit1.selstart = Len(This.Parent.Edit1.Value)
Next x