Private Sub Beginnen_Click()
 
Found = False
 
'Dateiverzeichniss
Filename = Dir1.Path & IIf(Right$(Dir1.Path, 1) <> "", "", "") & myFile
 
'Datei zum lesen öffnen
F = FreeFile
Open Filename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
 
' Nach der bestimmten Zeile suchen
Do Until EOF(F) Or Found = True
  If Hinzu > Zahl Then
     Found = True
  End If
 
' Jetzt Text ersetzen
If Found = True Then
   Neu = "<option value=" & Hinzu & ">" & Hinzu & "%"
   Print #F, Neu;
End If
Loop
 
' Datei schließen
Close #F
End