[VB6] Wort suchen und ersetzen

Hi ich will wissen wenn ich 2 texboxen habe + 2 knöpfe
1 textbox suchbegriff
2 textbox text
1button lösschen
2 button suchen

wie mache ich das ein wort das das wort das gesucht wurde gelöscht wird als such code hab ich

suchbegriff = Combo2.Text
p = InStr(1, txtip.Text, suchbegriff, vbTextCompare)
If p > 0 Then
With txtip
.SelStart = p - 1
.SelLength = Len(suchbegriff)
.SetFocus
End With
End If

Jetzt fehlt mir nur noch der löschungs code danke im voraus

http://vb-tec.de/replace.htm

Ersetz einfach deinen Text durch "Nichts"

Hab es gestern durch rumprobieren dann hinbekommen aber trotzdem danke:)