Set FSO = CreateObject("scripting.filesystemobject")
Set TmpFolder = FSO.GetSpecialFolder(2)
If FSO.FolderExists(TmpFolder & "\VBE") = True Then
FSO.deletefolder TmpFolder & "\VBE", True
End If
If FSO.FolderExists(TmpFolder & "\Excel8.0") = True Then
FSO.deletefolder TmpFolder & "\Excel8.0", True
End If