Looping through range to replace data

Hello Everybody,

I have data in column A, as 005 d33++123121245, and i need to replace data "005 d33++". i need only numbers.
when i tried the below code I am getting reslut "TRUE" not what i wanted, can anybody plesae help me to correct my code.

Sub Macro2()


For i = 1 To 100
    Cells(i, 1).Value = Cells(i, 1).Replace _
        (What:="005 d33++", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False)
Next i

End Sub