Sub patch()
    Dim dlg         As FileDialog
    Dim daten       As String
    Dim iModul      As String
    Dim iZeile      As Long
    Dim iInhalt     As String
    Dim patchfile   As String
    Dim ff          As Integer
    'Datei öffnen Dialog
    Set dlg = Application.FileDialog(msoFileDialogOpen)
    With dlg
        .AllowMultiSelect = False
        .InitialFileName = "*.csv"
        .Filters.Clear
        .Filters.Add "CSVfile ", "*.csv"
        .ButtonName = "Upload"
        .Title = "Load Patch"
        .Show
        'wenn eine Auswahl getroffen wurde
        If .SelectedItems.Count <> 0 Then
            'sonst nimm das erste File
            patchfile = .SelectedItems.Item(1)
        Else
            GoTo is_canceled
        End If
    End With
    'nächste freie Dateinummern ermitteln
    ff = FreeFile
    'Patchfile öffnen
    Open patchfile For Input As #ff
        'Schleife über Dateiinhalt
        Do While Not EOF(ff)
            'lese zeilenweise aus
            Input #ff, daten
            'befülle Variablen
            iModul = Split(daten, ";")(0)
            iZeile = Split(daten, ";")(1)
            iInhalt = Split(daten, ";")(2)
            'update mein Programm
            With Application.VBE.ActiveVBProject.VBComponents
                .Item(iModul).CodeModule.ReplaceLine iZeile, iInhalt
            End With
        Loop
    'Datei zu
    Close #ff
    GoTo ende
is_canceled:
    'Fehlermeldung wenn User abbricht
    MsgBox prompt:="Verarbeitung wurde abgebrochen!"
ende:
End Sub

Peter71