How to delete cookies in QTP?

Function fnRemoveCookies
uName=Environment.Value("UserName")
Dim oShell
Set oShell=CreateObject("WScript.shell")
oShell.run("cmd /C cd C:\Documents and Settings\" & uName & "\cookies & del *.txt")
Set oshell=nothing
End Function