Sacar la ruta del escritorio

[Guan]

    Wolas, necesito sacar la ruta del escritorio actual desde vb, por ahora tengo echa una chapuzilla:

Código:

Private Sub form_load()
Set obj = CreateObject("Scripting.FileSystemObject")
Set reg = CreateObject("WScript.Shell")
username = reg.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
obj.createfolder ("C:/Documents and settings/" & username & "/Escritorio/Nueva Carpeta")
End Sub

Esto lo qe haria seria crear una nueva carpeta en en el escritorio de C:/doc.../escritorio/
pero el problema llega cuando windows arraca desde d:, porqe me sigue creando la carpeta en C:/doc...

Alguna sugerencia para sacar la ruta del escritorio??

PD: No me sirve usando "app.path" porqe la ruta de ejecucion cambia. Supongo qe sera algo como sacar la carpeta de windows    "Set win = obj.GetSpecial Folder(0)", pero solo ai 3 carpetas especiales: windows system32 y la de archivos temporales.

Saludos

[Punk-Rock]

Aki te codee algo sencillo:

Código:

Private Sub Form_Load()
Dim vat As String
Dim hd As String
Dim nombre As String
Dim escri As String
Dim escri2 As String

vat = Environ("HOMEDRIVE")
hd = vat & "\"
nombre = Environ("USERNAME")

escri2 = Environ("HOMEPATH")
escri = vat & escri2 & "\Escritorio"
MsgBox "El Disco donde esta instalado Windows: " & hd & vbNewLine & " " & vbNewLine & "El nombre del usuario es: " & nombre & vbNewLine & " " & vbNewLine & "La ruta del escritorio es: " & escri
End Sub

Salu2