Public Sub DelFile(sFileName)
On Error Goto WhatEverError
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.deletefile (sFileName)

    Set fso = Nothing
    
WhatEverError:
    'Just continue
End Sub