Const SuchZeile = "    MsgBox ""VBA macht Spaß !"""
Const NeueZeile = "    MsgBox ""VBA macht großen Spaß !"""

Sub VBAZeileÄndern()
    Set VBE = Application.VBE.ActiveCodePane.CodeModule
    With VBE
        For x = 1 To .CountOfLines
            If .Lines(x, 1) = NeueZeile Then
                .ReplaceLine x, SuchZeile
                Exit Sub
            End If
            If .Lines(x, 1) = SuchZeile Then
                .ReplaceLine x, NeueZeile
                Exit Sub
            End If
        Next x
    End With
End Sub

Sub Testen()
    MsgBox "VBA macht Spaß !"
End Sub