Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Randomize
objFSO.DeleteFile "C:\TBL.txt", true
If Err.Number Then
else
Err.Clear
End if