Public Sub Ersetzen(ByVal inputfilepath As String, ByVal inputfile As _
      String, ByVal outputfilepath As String, ByVal outputfile As String, ByVal _
      searchcriteria As String, ByVal replacement As String)
        Dim ifile As IO.StreamReader
        Dim ofile As IO.StreamWriter
        ifile = New IO.StreamReader(inputfilepath & inputfile)
        ofile = New IO.StreamWriter(outputfilepath & outputfile)
 
        Dim zeilen As String
 
        Try
            zeilen = ifile.ReadToEnd
            ifile.Close()
        Catch ex As Exception
            MsgBox(ex.Message, , "Einlesen zum Ersetzen")  <<-------- hier _
              steigt er aus
            Exit Sub
        End Try
        Try
            zeilen = zeilen.Replace(searchcriteria, replacement)
        Catch ex As Exception
            MsgBox(ex.Message, , "Ersetzen der Strings")
        End Try
        Try
            ofile.WriteLine(zeilen)
        Catch ex As Exception
            MsgBox(ex.Message, , "Schreiben der Ersetzten Datei")
        End Try
 
        ofile.Close()
    End Sub