Public Function SucheundErsetze(ByVal Pfad As String, ByVal Suche As String, _
  ByVal Ersetze As String)
 
        ' Declare variables to access the Excel workbook.
        Dim objXLApp As Excel.Application
        Dim objXLWorkbooks As Excel.Workbooks
        Dim objXLABC As Excel.Workbook
 
        ' Declare variables to access the macros in the workbook.
        Dim objProject As VBIDE.VBProject
        Dim objComponent As VBIDE.VBComponent
        Dim objCode As VBIDE.CodeModule
 
        ' Declare other miscellaneous variables.
        Dim iLine As Integer
        Dim sProcName As String
        Dim sProcXXX As Integer
        Dim repcount As Integer
        Dim pk As VBIDE.vbext_ProcKind
        'Dim Suchwort As String
 
        ' Open Excel, and open the workbook.
        objXLApp = New Excel.Application
        objXLWorkbooks = objXLApp.Workbooks
 
        Try
 
            objXLABC = objXLWorkbooks.Open(Pfad)
 
            objXLApp.Visible = True
 
            ' Get the project details in the workbook.
            objProject = objXLABC.VBProject
            repcount = 0
 
 
            If objProject.Protection = _
              VBIDE.vbext_ProjectProtection.vbext_pp_locked Then
                MsgBox("Der Quelltext ist durch ein Passwort geschützt")
                Exit Try
            End If
 
 
            ' Iterate through each component in the project.
            For Each objComponent In objProject.VBComponents
 
                ' Find the code module for the project.
                objCode = objComponent.CodeModule
 
 
                ' Scan through the code module, looking for procedures.
                iLine = 1
 
                Do While iLine <= objCode.CountOfLines
                    sProcName = objCode.ProcOfLine(iLine, pk)
                    sProcXXX = objCode.Find(Suche, iLine, 1, iLine, 1000)
 
                    If sProcXXX = -1 Then
                        objCode.ReplaceLine(iLine, Ersetze)
                        repcount = repcount + 1
                    End If
 
                    iLine = iLine + 1
 
                Loop
 
                objCode = Nothing
                objComponent = Nothing
 
            Next
 
            objProject = Nothing
 
            ' Clean up and exit.
            objXLABC.Close()
            objXLApp.Quit()
 
 
 
        Catch ex As Exception
            MsgBox("Es konnte keine Datei gefunden werden", _
              MsgBoxStyle.Exclamation)
        End Try
 
        Return repcount
 
    End Function

Salzburger