Сравнение двух TextBox'ов с записью в третий - VB

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

Подскажите, пожалуйста! У меня есть ТРИ TextBox - в одном написано "мама и папа", а во втором "папа". Как сравнить эти два текст бокса и чтобы одинаковые СЛОВА записались в трейтий текстбокс?

Решение задачи: «Сравнение двух TextBox'ов с записью в третий»

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

                            a1 = Split(Text1.Text, " ")
a2 = Split(Text2.Text, " ")
Text3.Text = ""
For j = LBound(a2) To UBound(a2)
For i = LBound(a1) To UBound(a1)
If a2(j) = a1(i) Then
Text3.Text = Text3.Text & a2(j) & " "
Exit For
End If
Next i
Next j
                        