Private Sub Beginnen_Click()
 
'Dateiverzeichniss
Filename = Dir1.Path & myFile
 
'Datei zum lesen öffnen
lCount = 0: F = FreeFile
Open Filename For Output 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
End If
Loop
End Sub