[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] myStrings [/SIZE][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]String
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] i [/SIZE][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=2] = 0 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] ListBox1.Items.Count - 1
myStrings &= ListBox1.Items(i) & ControlChars.NewLine
[/SIZE][SIZE=2][COLOR=#0000ff]Next
[/COLOR][/SIZE][SIZE=2]MessageBox.Show("Now you can proceed ""myStrings"" either to textBox or to text file")
[/SIZE][SIZE=2][COLOR=#008000]'i.e.
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].txtHolder.Text = myStrings[/SIZE]