Text values analysis

[Dastard]

Thanks a lot
its almost resolved just one last query
i m doing this

for i = 1 to ubound(x)
 
 
next i
 Exit Sub
 
errorhandler:
   Open App.Path & "\Errors.txt" For Output As FB
        Debug.Print "An Error has occured at Block " & z / 60&; vbNewLine
        
Resume Next
'Close FB
End Sub

this is code of my error handler , and if my program gets more then one error , this Errors.txt only shows me the last error , is there way i can put whole error log in this file ?