This will produce an array of lines for you called strArr()

VB Code:
  1. Dim strArr() As String
  2. strArr = Split(Text1.Text, vbCrLf)