Try TextBox2.Text = My.Settings.Friends TextBox2.Text.TrimEnd() Dim NewArray() As String = TextBox2.Text.Split(vbNewLine) If Not TextBox2.Text = "" Or Nothing Then For Each item As String In NewArray If item = "" Or Nothing Then Else ListBox1.Items.Add(item) End If Next ListBox1.Items.Remove(ListBox1.Items.Count - 1) End If Catch ex As Exception End Try
TextBox2.Text = "" For Each thing As Object In ListBox1.Items TextBox2.AppendText(thing.ToString & vbNewLine) Next TextBox2.Text.TrimEnd() My.Settings.Friends = TextBox2.Text
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)