Código: Seleccionar todo

string[] correos = textbox1.Text.Split(' ', StringSplitOptions.RemoveEmptyEntries));
              foreach (string q in correos)
            {
                listBox1.Items.Add(q);
            }

Código: Seleccionar todo

char[] r = { '\r' };
string[] correos = textbox1.Text.Split(r, StringSplitOptions.RemoveEmptyEntries));
         foreach (string q in correos)
            {
                listBox1.Items.Add(q);
            }

Código: Seleccionar todo

   Dim B() As String
        Dim C As Integer
        B = Split(TextBox1.Text, vbCrLf)
        '_______________________________________________
        For C = 0 To B.Count - 1

            ListBox1.Items.Add(B(C))

        Next
        '________________________________________________