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

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

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

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

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

با تشکر

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

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