پاک کردن کلمات یک لیست از جمله تکست

[xrezax]

دوستان یک لیست دارم که توش چندتا کلمه هست.
یک تکست هم دارم که توش یک جمله هست حالا می خوام وقتی روی کامند کلیک بشه کلماتی که توی لیست هستند از جمله داخل تسکت پاک بشه.

[محسن واژدی]

سلام
کد زیر را بررسی کنید:

Private Sub Command1_Click()
Dim sTmp$, i%
sTmp$ = Text1
With List1
For i% = 0 To .ListCount - 1
sTmp$ = Replace(sTmp$, .List(i), Empty)
Next i%
Text1 = sTmp$
End With
End Sub

موفق باشید