textfilter based on duplicate words in two textboxes in VB6 only

i have two richtextboxes
richtextbox 1 =
78578587
72782|wefwe|78525041|etc..........
87528725

richtextbox2 =
8968498875787 qwdddddd
8946552418163210536418 qwdwqd
72782 qwdqwdwq qwdqdwqd

i wana extract lines from richtextbox1 that have common first words with richtextbox2 to richtextbox3. so result would be: 72782|wefwe|78525041|etc..........

project only in vb6
need it in 24 hrs