>>149
Dim part As String() = TextBox1.Text.Split(vbCrLf)