Путь к папке документов активного пользователя Windows ("Мои Документы")

Public Function GetMyDocumentsPath() As String
'Возващает путь к папке документов активного пользователя Windows ("Мои Документы")
Dim Wsh As Object
    
    Set Wsh = CreateObject("WScript.Shell")
    GetMyDocumentsPath = Wsh.SpecialFolders("MyDocuments")
    Set Wsh = Nothing

End Function