удалить остальной текст из ячейки после замены

[pooli]

как удалить весь оставшийся текст, после замененного значения,если поиск и замена по правилу в одной (тут же)ячейке?
именно после замененного.

пример кода

.Replace What:="А", Replacement:="Б", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'а после этого в ячейке нужно удалить все что там осталось!

[Serge 007]

.Replace What:="Б*", Replacement:="Б", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Только мне кажется что в одно действие быстрее будет:

.Replace What:="А*", Replacement:="Б", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[pooli]

тьфуты, спасибо! какже я не допетрил...

Спасибо