Public Sub CleanFile (ByVal FilePath as String)
Dim FileContent as String
Dim HandleID as Integer
 
'Datei einlesen
HandleID = FreeFile
Open FilePath for Input as #HandleID
  FileContent = Input(LOF(HandleID), #HandleID)
Close #HandleID
 
'Erstes y finden und String dort abschneiden
FileContent = Left(FileContent, InStr(1, FileContent, "y") - 1)
 
'Datei speichern
Open FilePath for Output as #HandleID
  Print #HandleID, FileContent
Close #HandleID
 
End Sub