Private Sub Command1_Click() '普通删除文件
    Kill "C:\123.txt"
End Sub

Private Sub Command1_Click() '强制删除文件
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.deletefile "C:\1.exe"
End Sub