2- حالا میریم سر وقت تکه دوم که قرار هست تکراری ها رو با back reference به تکه اول پیدا کنه:
test_it Join(Parts, " "), pattern

test_it Join(Parts, vbCrLf), pattern


pattern=(\b\w+\b)(?=.*\b\1\b)             count=7

This is the part and part now 

pattern=(\b\w+\b)(?=.*\b\1\b)             count=0

اینجا کاملا واضح هست که این پترن در حالت single line مشکل نداره (احتمالا و با توجه به شرایط)،
ولی وقتی در متن vbcrlf داریم کار نمیکنه!