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

[Jmacp]

hrmmmmm?????

Private Sub Command1_Click()
Dim PathToDesktop As String
    Set oShell = CreateObject("WScript.Shell")
    PathToDesktop = oShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")
    
Open PathToDesktop & "\help.htm" For Output As #1
 
Print #1, "HELLO!!!"
Close 1
End Sub

Works Great!!!!!! THANK YOU, will leave feedback,, great job man!!!!!!!

glad it worked..