تشخیص و حذف کلمه از تکست

[xrezax]

سلام دوستان
بنده یک text1.text دارم که توی اون نوشته شده "Aseman iran zeba ast" حالا میخوام وقتی روی دکمه کلیک کنم کلمه Aseman از توی text1.text حذف بشه.
ممنون میشم راهنمایی کنید. کلمه رو میتونم پیدا کنم اما نمیتونم حذف کنم

دوستان دقت کنید من نمیخوام Replace کنم. میخوام حذفش کنم

[roo.row]

با سلام
بفرمایید :

Private Sub Command1_Click()
Dim x As String
Dim y() As String
Dim n As String
Dim i As Integer
x = Text1.Text
y = Split(x)
For i = 0 To (UBound(y) - LBound(y))
If y(i) <> "Aseman" Then
n = n + " " + y(i)
End If
Next i
MsgBox (n)
End Sub

با تشکر

[vbhamed]

سلام
خب با Replace حذفش هم میشه کرد دیگه

text1 = Replace(text1, "Aseman", "", , , vbTextCompare)