Search and replace VB with VB

Does anyone know a way to search and replace a word in VB with VB?
For example... run a macro to search through all the VB contained in a workbook and replace the word orange with the word lemon.

Sub snb()
  For Each cp In ActiveWorkbook.VBProject.VBComponents
    With cp.CodeModule
      If .countoflines > 0 Then
        c02 = Replace(.Lines(1, .countoflines), "Lemon", "orange")
        .DeleteLines 1, .countoflines
        .AddFromString c02
      End If
    End With
  Next
End Sub

You can't put this code in the same workbook you want to adapt.