Just try these two lines and they should work

Text1.SelStart = Len(Text1) 'Finds the starting point to append text
Text1.SelText = MyNumber & vbCrLf 'Appends text

For Me Simple is really good!! THIS WORKS !! just changed the mynumber to mystr and bingo scrolls, Ok I just ( learnt somethin )

Thank You !!
you spent a lot of time helping! I appreciate it! there was someone else who could use this but forgot who ??

Thank You
Larry