VBA: Makro-Zeile änder

Option Explicit
Private Sub Cbu_Suchen_Click()
Zeichen_im_VBA_Modul_ersetzen
'    Zeichen_in_den_VBA_Modulen_ersetzen
Unload Me
End Sub
'Dieser Code Sucht u. Ersetzt nur im angegebenen Modul!
Sub Zeichen_im_VBA_Modul_ersetzen()
Dim m As Object, VBACode As String
Dim SuchString As String, ErsatzString As String
SuchString = TextBox1.Value  ' oder "Debug.Print"
ErsatzString = TextBox2.Value 'oder "MsgBox"
Set m = ThisWorkbook.VBProject.VBComponents("Modul1").CodeModule
VBACode = m.Lines(1, m.CountOfLines)
VBACode = Replace(VBACode, SuchString, ErsatzString)
m.DeleteLines 1, m.CountOfLines
m.InsertLines 1, VBACode
End Sub

'Dieser Code Sucht u. Ersetzt in allen Modulen!
'Sub Zeichen_in_den_VBA_Modulen_ersetzen()
'    Dim m As Object, v As Object, VBACode As String
'    Dim SuchString As String, ErsatzString As String
'   SuchString = TextBox1.Value
'    ErsatzString = TextBox2.Value
'    For Each v In ThisWorkbook.VBProject.VBComponents
'        If v.Name  "UFx_Code_aendern" Then
'            Set m = v.CodeModule
'            If m.CountOfLines > 0 Then
'                VBACode = m.Lines(1, m.CountOfLines)
'                VBACode = Replace(VBACode, SuchString, ErsatzString)
'                m.DeleteLines 1, m.CountOfLines
'                m.InsertLines 1, VBACode
'            End If
'        End If
'    Next v
'End Sub