Open "C:\Documents and Settings\All Users\desktop\Estamit1.html " For Output As 1

[Jmacp]

try this,

Dim PathToDesktop As String
    Set oShell = CreateObject("WScript.Shell")
    PathToDesktop = oShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")