Public Sub KillFile(sFileName)
On Error GoTo WhatEverError
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.deletefile (sFileName)
    
WhatEverError:
    'Just continue
End Sub