■No33365に返信(魔界の仮面弁士さんの記事)
> であれば、API 側を Alias せず、そのまま GetObjectW / GetObjectA として
> 呼び出すようにするか、

これで切り分けは問題なく出来ました。
但し、新たな問題が発生しました。

Public Function IsWindowOnCurrentVirtualDesktop(ByVal topLevelWindow As Long) As Boolean の Err.Raise hr で発生します。

実行時エラー'-2147319765(8002802b)'
オートメーションエラーです。
要素が見つかりません。

と出ます。
※なぜにエラーを発生させているのでしょうか ・・・

> 参照設定はできたのですね。
> VB 側の呼び出し部のコードはどうなっていますか?

    Dim obj As ClassLibrary1.Class1
    Set obj = New ClassLibrary1.Class1
    If obj.IsVirtualDesktop(Me.HWND) Then
    　　MsgBox "OK"
    End If

このようにしています。
DLLの作成に問題があるのかもしれません。