Private Function OptimizeFile(ProgrammFile As String)
Dim WZWcount As Integer
Dim SndCounter As Double
Dim Prog As String
Dim sLines() As String
Dim n As Long
 
Prog = txt_ReadAll(ProgrammFile)
WZWcount = 0
 
sLines = Split(Prog, vbCrLf)
 
For n = 0 To UBound(sLines())
 
If InStr(sLines(n), "TRAORI") Then
GoTo JmpNxt
End If
If InStr(sLines(n), "TRAFOOF") Then
GoTo JmpNxt
End If
 
If InStr(sLines(n), "T") And WZWcount = 0 Then
    WZWcount = 1
    GoTo JmpNxt
Else
    ArrayInsert sLines(), n + 2, "N0815 G54"
End If
 
JmpNxt:
Next
 
Dim PutFile As String
Dim x As Double
 
For x = 0 To UBound(sLines)
PutFile = PutFile & sLines(x) & vbCrLf
Next
 
MsgBox (txt_WriteAll("C:\Dokumente und Einstellungen\CAD\Desktop\Test.FZ30", _
  PutFile))
End Function