or this... I can't remember if kix support "InvokeVerb"
Option Explicit
Dim oWinShell, oSHFolder, oSHFItems, oSHFItem
Dim Start
msgbox "Go..."
start = csng(timer)
Set oWinShell = CreateObject("Shell.Application")
Set oSHFolder = oWinShell.Namespace("C:\")
Set oSHFItems = oSHFolder.Items
Set oSHFItem = oSHFItems.Item("temp.txt")
oSHFItem.InvokeVerb("&Delete")
Set oWinShell = Nothing
Set oSHFolder = Nothing
Set oSHFItems = Nothing
Set oSHFItem = Nothing
msgbox csng(timer) - start
--
