Hvordan sletter jeg en fil ?

Hvordan sletter jeg en fil jeg har lavet således :

    FileNumber = FreeFile
    FileSource = ""
    Open App.Path & "\" & FileNumber & ".html" For Input As FileNumber
    Do Until EOF(FileNumber)
        Line Input #FileNumber, NextLine
        FileSource = FileSource + NextLine
    Loop
    Close FileNumber
    Reset