remove cell contents if contains certain word in a specific column

I have this sub which makes the cell blank if the word "text" is found in it. This works across all columns.

Sub ClearCellsContainingText()
Do Until Cells.Find(What:="text", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False) _
Is Nothing

Cells.FindNext.Clear
Loop
End Sub

Can anyone alter this one slightly or give a new one so the instruction only looks at a certain column
For example: I want any cell in column b to become blank if it contains the word "text".

If the word "text" is found in any other columns then those columns stay as they are.