ワークスペースで無効な文字列を取得する方法

ジオデータベースで使用できない文字を取得するためのコードです。ワークスペースの種類を変更することによって使用できない文字列は変化します。この例ではファイル ジオデータベースを対象としています。

Private Sub CheckInvalidCharacters()
    
    'FileGDBWorkspaceFactoryの作成
    Dim pWorkspaceFactory As IWorkspaceFactory
    Set pWorkspaceFactory = New FileGDBWorkspaceFactory
    
    '既存ワークスペースの取得
    Dim pWorkspace As IWorkspace
    Set pWorkspace = pWorkspaceFactory.OpenFromFile("D:\Workspace\GeoDatabase.gdb", 0)
    
    Dim pSQLSyntax As ISQLSyntax
    Set pSQLSyntax = pWorkspace     'QI
    
    Debug.Print "GetInvalidCharacters        ", "■" & pSQLSyntax.GetInvalidCharacters & "■"
    Debug.Print "GetInvalidStartingCharacters", "■" & pSQLSyntax.GetInvalidStartingCharacters & "■"

End Sub