Sub przoeffnen()
'Öffnet alle Dateien und zeigt die aktuellen Werte (FinalThickness) In den Labels an
'##################################################################
'.R Datei öffnen und aktuellen Wert auslesen und In Label anzeigen
dateiname = eingabe & ".R"
Dim FNr As Long
Dim strText As String
 
FNr = FreeFile
Open "C:\xml\" & dateiname For Binary Access Read As #FNr
strText = Space$(LOF(FNr))
Get #FNr, , strText
Close #FNr
strText = Replace$(strText, "FinalThickness=0", "das soll hin")
'strText = Mid$(strText, InStr(1, strText, "Finalthickness", vbTextCompare) + Len("Finalthickness"))
MsgBox strText
FNr = FreeFile
Open "C:\xml\" & dateiname For Output As #FNr
Print #FNr, strText
Close #FNr
List2.AddItem "****************************************"
List2.AddItem Now
List2.AddItem dateiname & "wurde ausgelesen"
List2.AddItem "*****************************************"
'##################################################################
End Sub

Dim zeile As String
zeile=?????????