こんばんは、魔界の仮面弁士様、るきお様
　　エラーの理由だけでなく、沢山沢山ありがとうございます。
　　エラーは御教授いただいたコードで修正確認できました。
　　バイナリエディタも最初Fontsフォルダに触れなくて、困りましたが、
　　コピーして開くことができました。
　　御教授頂いたバイナリは、見ることができましたが、消化不良で、
　　見て確認できた所までです。
　　少しずつ勉強していきたいと思います。
　　Gekka様のＶＢも、IVSが見当たらなかったらエラーになっていましたので、
　　少し改造して、見当たらなかったら999999を返すようにして、

    Public Shared Function FindISVS(ByVal targetFontName As String, ByVal targetChar As UInteger) As List(Of UInteger)

        On Error GoTo ErrLabel

        Dim fontFile As System.IO.FileInfo = FindFont(targetFontName)

        If (fontFile IsNot Nothing) Then

            For Each ttf As TTF In TTC.Read(fontFile.FullName, TTFDataReadTypes.Names Or TTFDataReadTypes.IVS)

                Return ttf.IVSMap.Item(targetChar)

            Next

        End If

        Return Nothing

        'Return New System.IO.FileInfo("C:\Users\Y2\AppData\Local\Microsoft\Windows\Fonts\ipamjm.ttf") 

ErrLabel:

        'https://www.sejuku.net/blog/35484 

        Dim er As UInteger

        Dim list1a = New List(Of UInteger)

        'https://atmarkit.itmedia.co.jp/ait/articles/1703/01/news042.html 

        er = 999999

        list1a.Add(er)

        Return list1a

    End Function

    Public Shared Function FindISV(ByVal targetFontName As String, ByVal targetChar As Char) As List(Of UInteger)

        Dim fontFile As System.IO.FileInfo = FindFont(targetFontName)

        If (fontFile IsNot Nothing) Then

            For Each ttf As TTF In TTC.Read(fontFile.FullName, TTFDataReadTypes.Names Or TTFDataReadTypes.IVS)

                Return ttf.IVSMap.Item(AscW(targetChar))

            Next

        End If

        Return Nothing

    End Function

IVD_Sequences.txtの全部（丸めて）のコードの有無をテキストファイルに出力して確認したりしています。
文字は、とても面白く難しいので、今後もがんばって行きたいと思います。
WIN11も出て、とても忙しいと思いますが、とても沢山時間を割いて頂き、
大変ありがく恐縮です。
皆さん、また御指導宜しくお願いします。