WindowsAPIのFindWindow関数をVBSで使用したい

Question

実現したいこと

FindWindow関数を使用して、ウィンドウタイトルが"新しいタブ - Google Chrome"のウィンドウのハンドルを取得しMsgboxで表示するVBSコードを作成したい。

前提

下記VBAではうまくいったのですが、自分で考えてVBSに直したところエラーが出るようになりました。

該当のソースコード

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Sub キャプション名からウインドウハンドルを取得する()
    
    Dim hWnd As LongPtr
    hWnd = FindWindow(vbNullString, "新しいタブ - Google Chrome")
    MsgBox hWnd
    
End Sub

Dim hWnd
Dim Excel
Set Excel = WScript.CreateObject("Excel.Application")
hWnd = Excel.ExecuteExcel4Macro("CALL(""user32"", ""FindWindowA"", ""JCJ"", 0, ""新しいタブ - Google Chrome"" )")
Msgbox hWnd

発生している問題・エラーメッセージ

行 5
文字 1
エラー　型が一致しません
コード　800A000D
ソース　Microsoft VBScript 実行時エラー

試したこと

5行目Msgbox～を削除したところ、エラーにはなりませんでした。（1～4行目の挙動については不明です）

Comments

[otn]

とりあえず、「型が一致しません」ということなので、
Typename(hWnd) がなんであるか見てみては？

Answer 1

4行目の""JCJ""を""JJC""に修正すればエラーになりませんが、結果は０です。原因は不明。
また、
hWnd = Excel.ExecuteExcel4Macro("CALL(""user32"", ""FindWindowA"", ""JCJ"", ""Chrome_WidgetWin_1"", 0)")
にすれば、Edgeブラウザのハンドル番号をとれます。