' In ein Modul
 
Private Function RegRead(Path As String) As String
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function
 
ErrHandler:
  RegRead = ""
End Function
 
Public Function GetDesktopPath() As String
 
    GetDesktopPath = RegRead( _
    "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell" & _
    "Folders\Desktop")
 
End Function
 
 
' Aufruf in der Sub
 
Dim strDestopPath As String
    strDestopPath = GetDesktopPath