Строки - VB (58601)

Формулировка задачи:

В text1.text 10 строк. В text2.text 3 строки. Эти 3 строки идентичны 3-ём строкам из 10 с первого текстбокса. Как определить, что именно эти 3 строки из 10 совпадают со строками из второго текстбокса и убрать их, чтобы в 1-ом тексбоксе осталось только 7 записей. Помогите, плз. Буду очень благодарен.

Решение задачи: «Строки»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
t1 = Split(Text1.Text, vbNewLine)
t2 = Split(Text2.Text, vbNewLine)
 
For i = 0 To UBound(t2)
For j = 0 To UBound(t1)
If t2(i) = t1(j) Then t1(j) = ""
Next j
Next i
 
Text1.Text = ""
For j = 0 To UBound(t1)
If t1(j) <> "" Then Text1.Text = Text1.Text & t1(j) & vbNewLine
Next j
 
Text1.Text = Trim(Text1.Text)
End Sub
                        