Private Sub activate_bt_Click()
 
'Einlesen einer beliebigen Datei, Inhalt kommt in die Variable "sInhalt"(Diese 
' muss je nach 'Verwendung, in meinem Fall Global deklariert sein)
 
    Dim dlgOpen As FileDialog
    Dim patchDatei As String
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    '(Verweis setzten auf Microsoft Office 11.0 Object Libary im Visual Basic 
    ' Editor -> Extras  -->     Verweise)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
        On Error Resume Next
        patchDatei = .SelectedItems(1)
        If Err <> 0 Then
            MsgBox "Es wurde keine Datei ausgewählt", _
                   vbInformation + vbOKOnly, "Titel"
        Else
            Dim F As Integer
            F = FreeFile: Open patchDatei For Binary As #F
            sInhalt = Space$(LOF(F))
            Get #F, , sInhalt
            Close #F
            On Error GoTo 0
            patch
            MsgBox "Die Nutzungsphase wurde erfolgreich verlängert.", _
              vbInformation, "Hinsweis"
            DoCmd.Close
            DoCmd.OpenForm "Hauptmenu"
        End If
    End With
End Sub
 
 
'Die Patch-Funktion sucht nach dem zu ändernden Code, über ein String-Kriterium 
' in einem angegebendem
'Modul. Bei Findung wird es dann durch den Code aus der Text-Datei ersetzt
 
Sub patch()
    With Application.VBE.ActiveVBProject.VBComponents.Item("Start").CodeModule
    Dim z As Long, s As Long
        If .Find("expire_date =", 1, 1, z, s, False, False) Then
            .ReplaceLine z, sInhalt
        End If
    End With
End Sub