Script Paradigm

Option Explicit
Call fnDeleteFile("new2.txt")
Sub fnDeleteFile(ByVal strFilePath)
    Dim fsoTemp
    
    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    Call fsoTemp.DeleteFile(strFilePath, True)
    
    Set fsoTemp = Nothing
End Sub