Try this.

VB.NET Code:
  1. Dim sup() As String = TextBox1.Text.Replace(vbCr & vbLf, String.Empty).Split(New String() {"#"}, StringSplitOptions.RemoveEmptyEntries)
  2. DataGridView1.Rows.Add(sup(0), sup(1), sup(2), sup(3))

- kgc