Con open filename for random abrimos un fichero y lo borramos con...

[Hager]

Mira, podes usar el siguiente código

Function Borrar_archivo(file As String)'c:/micarpeta/miarchivo
Dim fso
Borrar_archivo = False
On Error GoTo ignore:
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile file, True
' Borra todos los archivos llamados AlgunArchivo sin importar la extension. Borra aun cuando sea de Solo Lectura
Set fso = Nothing
Borrar_archivo = True
ignore:
End Function