よろしくお願いします。
現在以下のようにしてフォルダ参照ダイアログを出してフォルダのパスを取得
していますが、デスクトップを選択するとエラーが出ます。デスクトップも選択
出来るようにしたいのですがどうしたらよいでしょうか。

    Dim o As Object
    Set o = CreateObject("Shell.Application").BrowseForFolder( _
        Me.hWnd, "フォルダを選択してください", 1)
        
    If o Is Nothing Then

    Else
        MsgBox o.Items().Item.Path
        Set o = Nothing
    End If

オブジェクトoをウオッチして見た限りでは、

>         MsgBox o.Items().Item.Path

        MsgBox o.self.Path

お好みで、
        MsgBox o.self.Path, , o.self.Name
とかだと思いますよ。

http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/jun05/hey0617.mspx
によると、
| Shell オブジェクトには特異な性質があるため、次の 2 行のコードが必要です。
| Set objFolderItem = objFolder.Self
| objPath = objFolderItem.Path
のように紹介されています。

ご回答有難う御座います。
早速試してみたいと思います。