IguanaTexを使おうとすると、実行時エラー5が出てしまう

実現したいこと

ここに実現したいことを箇条書きで書いてください。

前提

PowerPoint中に数式をTeXで書きたいと思い、IguanaTexを使うために、このページ
https://www.jonathanleroux.org/software/iguanatex/download.html
を参考にしながら、インストールを進めました。

github
https://github.com/Jonathan-LeRoux/IguanaTex/releases
からIguanaTex_v1_60_3.ppamをダウンロードし、PowerPointでアドインを導入したあと、IguanaTeXタブのMain Settingsを押すと実行時エラー '5'が出ました。

エラー箇所を探そうと思い、githubからIguanaTex_v1_60_3.pptmをダウンロードし、SetTempFormフォームを実行すると、RegistryAccessモジュール内のQueryValueEx関数でErr.Raise 5が呼び出されていました。

' Determine the size and type of data to be read #If VBA7 Then lrc = RegQueryValueExNULL(lhKey, StrPtr(szValueName), 0&, lType, 0&, cch) #Else lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch) #End If If lrc <> ERROR_NONE Then Err.Raise 5

ERROR_NONE定数が0なのに対し、lrc変数は6となっていました。
（lrc = RegQueryValueExNULL(lhKey, StrPtr(szValueName), 0&, lType, 0&, cch)で6が返ってきています。）
どのようにすれば解決できるでしょうか。

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

実行時エラー '5': プロシージャの呼び出し、または引数が不正です。

該当のソースコード

ソースコードのどこまでをここに書けばよいか分からなかったため、 QueryValueEx関数のみを書きました。

VBA

1Public Function QueryValueEx(ByVal lhKey As Long, _ 2 ByVal szValueName As String, vValue As Variant) As Long 3 Dim cch As Long 4 Dim lrc As Long 5 Dim lType As Long 6 Dim lValue As Long 7 Dim sValue As String 8 9 On Error GoTo QueryValueExError 10 11 ' Determine the size and type of data to be read 12 #If VBA7 Then 13 lrc = RegQueryValueExNULL(lhKey, StrPtr(szValueName), 0&, lType, 0&, cch) 14 #Else 15 lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch) 16 #End If 17 If lrc <> ERROR_NONE Then Err.Raise 5 18 19 Select Case lType 20 ' For strings 21 Case REG_SZ: 22 #If VBA7 Then 23 ' Dividing by 2 because cch is in Bytes, 24 ' but String is allocated by number of 2-Byte characters 25 sValue = String(cch / 2, 0) 26 lrc = RegQueryValueExString(lhKey, StrPtr(szValueName), 0&, lType, _ 27 StrPtr(sValue), cch) 28 If lrc = ERROR_NONE Then 29 vValue = Left$(sValue, cch / 2 - 1) 30 Else 31 vValue = Empty 32 End If 33 #Else 34 ' For older versions of Office. 35 ' No proper support of Unicode strings, which will be cut 36 sValue = String(cch, 0) 37 lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, _ 38 sValue, cch) 39 If lrc = ERROR_NONE Then 40 vValue = Left$(sValue, cch - 1) 41 Else 42 vValue = Empty 43 End If 44 #End If 45 ' For DWORDS 46 Case REG_DWORD: 47 #If VBA7 Then 48 lrc = RegQueryValueExLong(lhKey, StrPtr(szValueName), 0&, lType, _ 49 lValue, cch) 50 #Else 51 lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, _ 52 lValue, cch) 53 #End If 54 55 If lrc = ERROR_NONE Then vValue = lValue 56 Case Else 57 'all other data types not supported 58 lrc = -1 59 End Select 60 61QueryValueExExit: 62 QueryValueEx = lrc 63 Exit Function 64 65QueryValueExError: 66 Resume QueryValueExExit 67 End Function

補足情報（FW/ツールのバージョンなど）

windows10
Office365
TeX Live2023
IguanaTex_v1_60_3