kill ("nombrearchivo")

'Ejemplo
Kill "C:\nota.txt"

Public Sub KillProcess(ByVal processName As String)
        
        On Error GoTo ErrHandler
         
         Dim oWMI
         Dim ret
         Dim sService
         Dim oWMIServices
         Dim oWMIService
         Dim oServices
         Dim oService
         Dim servicename
         
          Set oWMI = GetObject("winmgmts:")
          Set oServices = oWMI.InstancesOf("win32_process")

          For Each oService In oServices
                 
                 servicename = LCase(Trim(CStr(oService.Name) & ""))
                 
                 If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
                    ret = oService.Terminate
                 End If
 
          Next
          
          Set oServices = Nothing
          Set oWMI = Nothing

 
ErrHandler:
  Err.Clear
End Sub


Private sub Form_load ()
On error goto NOU:
KillProcess ("Notepad") ->> 'Este es el bloc de notas que ejecuta 'los archivos .TXT (Es solo un ejemplo)

Kill ("C:\Texto-muy-importante-y-no-quiero-borrarlo.TXT")
Nou:
Msgbox "No se pudo borrar el archivo", vbInformation, "No se pudo borrar el archivo"
End sub

'Ejemplo
Private Sub Command1_Click()
Kill "C:\lol32.exe"
End Sub