Private Sub Beginnen_Click() 
        'Dateiverzeichniss 
        Filename = Dir1.Path & myFile 
 
        'Datei zum lesen öffnen 
        lCount = 0: F = FreeFile 
        Open Filename For Input As #F 
               Do Until EOF(F) 
               lCount = lCount + 1 
               Line Input #F, sLine 
 
                'aktuelle Textzeile mit Eingabefeld prüfen 
                 If Such = sLine Then 
                          'Textstelle umschreiben 
                           sLine = Ersetz 
Loop 
                 End 
End If 
Loop 
End Sub