Textarea1.text to listbox

General
1

Push button code:

 
dim s(-1) as String
  dim i as Integer
  TextArea1.Text=trim(TextArea1.Text)
  s=Split (TextArea1.Text, EndOfLine)
  for i=0 to s.Ubound
    listbox1.AddRow s(i)
  next

Is this the best way to add a single or multiple lines from a textarea to a listbox?
If I leave out the trim line I get blank rows in the listbox.

Thanks,

2

for i=0 to s.Ubound if NOT (s(i) = "") Then listbox1.AddRow s(i) end if next

3

That works…thanks Mark

4 
Listbox1.Cell( -1, -1 ) = TextArea1.Text.Trim

But that won’t skip blank lines like Mark’s version.

5

That’s nice…but it clears the old content from the listbox.

6

Yeah, that too. :slight_smile: