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 داریم کار نمیکنه!