初心者的なことだと思いますがお願いします。
当サイトの「特殊フォルダのパス取得」を参考に自分なりに変えてみました。

Private Sub Command1_Click()
    MsgBox (fSpecialFolder)
End Sub

Private Function fSpecialFolder() As String
'特殊フォルダのパス名を取得
    On Error Resume Next
    Dim objWsh     As Object
    'オブジェクト変数 objWsh に Wscript.Shell への参照を設定します
    Set objWsh = CreateObject("Wscript.Shell")
    If Err Then
        MsgBox "エラー(Wscript.Shellが使用できません？)"
    Else
        '特殊フォルダのパス名を取得
        ★１...　fSpecialFolder = objWsh.SpecialFolders(Desktop)
        ★２...　fSpecialFolder = objWsh.SpecialFolders(List1.List(List1.ListIndex))
    End If
    Set objWsh = Nothing
End Function

★２のようにフォームにリストを作成して、それの「Desktop」を選択して、実行すると
ちゃんと、ユーザー名のあとに「デスクトップ」が表示されるのですが、
★１のように直接「Desktop」を直接入力して、実行すると「AllUsers」のあとに
「デスクトップ」が表示されます。

結果的にやりたいことは、ユーザー名の後に「デスクトップ」を表示したいのですが、
いちいちフォームにリストを作りたくないのです。

どうしたらよいでしょうか？また、★１と★２では同じことをしている気がするのですが、
どこが違うのでしょうか？

「Desktop」は変数名ではなく、文字列なのではありませんか？

>         ★１...　fSpecialFolder = objWsh.SpecialFolders(Desktop)

この部分のコードはこのとおりなのでしょうか？
だったら　fSpecialFolder = objWsh.SpecialFolders("Desktop") でないとエラーが発生して
取得できないかと思います。

私の環境では両方とも同じ値が取得できました。
WinXP  VB6.0(SP5)

# 何秒差だったのかな？（遅かった）　

> fSpecialFolder = objWsh.SpecialFolders(Desktop)
を
fSpecialFolder = objWsh.SpecialFolders("Desktop")
とダブルクォーテーションで囲んでください。

囲まないとバリアント型の0とみなされ、
0は"AllUsersDesktop" を指定したのと同じになるためこの現象が起こります

Option Explicit
を常に使用する癖をつけるとこのようなミスで悩むことは減るでしょう。

Say様、花ちゃん様、NAO様、いつも有難うございます。
ダブルクオーテーションで囲むことにより、解決しました。
以後、気を付けたいと思います。
有難うございました。