Dim i As Integer Dim x As Integer If Right$(Text1.Text, 2) <> vbCrLf Then Text1.Text = Text1.Text & vbCrLf Text2 = "" For i = 1 To Len(Text1) x = InStr(i, Text1.Text, vbCrLf) If x > 0 Then If x - i > 0 Then Text2 = Text2 & Mid$(Text1.Text, i, x + 2 - i) End If i = x + 1 End If Next