برابر کردن تعداد کلمات دو تکست

[Hassan2500]

سلام
میخوام که تعداد کلمات تکست2 برابر با تعداد کلمات تکست1 شود

تکست1 ابج بجد
تکست2 جده دهو هوز
کلمه آخر که هوز است حذف شود و تعداد کلمات برابر شود یعنی هر چندتا کلمه تکست2 اضافه داشت از آخر حذف شود و بین هر کلمه یک فاصله است
تکست2 جده دهو

خیلی جستجو کردم چیزی در این رابطه پیدا نکردم

[meys34]

Dim a() As String, b() As String

a = Split(Trim$(Text1.Text), " ")
b = Split(Trim$(Text2.Text), " ")

ReDim Preserve b(0 To UBound(a)) As String

Print Join(b, " ")


البته نا گفته نماند که روشهای دیگه هم داره (منظورم بررسی تک تک حروف و پیدا کردن تعداد کلمات و ...)