VBA: Read Signatures

Hello Excel Forum, i have the following problem:

My macro reads the signatur of word documents.
The example DOCX File has 9 signaturefields, 5 are signed and 4 are unsigned.

I get signatures only when i use subset = 0 (msoSignatureSubsetSignaturesAllSigs). //It counts only the signed Signaturefields

Maybe someone knows my mistake:

  Dim oobjWDApp As Object 'Word.Application
  Dim oobjDoc As Object  'Word.Document
  Dim owdRange As Object ' Word.Range

Set oobjWDApp = CreateObject("Word.Application")
oobjWDApp.Visible = False
Set oobjDoc = oobjWDApp.Documents.Open(strQuellDat, ReadOnly:=True)

oobjDoc.Signatures.Subset = 0
Debug.Print "0 -> " & oobjDoc.Signatures.Count
oobjDoc.Signatures.Subset = 1
Debug.Print "1 -> " & oobjDoc.Signatures.Count
oobjDoc.Signatures.Subset = 2
Debug.Print "2 -> " & oobjDoc.Signatures.Count
oobjDoc.Signatures.Subset = 3
Debug.Print "3 -> " & oobjDoc.Signatures.Count
oobjDoc.Signatures.Subset = 4
Debug.Print "4 -> " & oobjDoc.Signatures.Count
oobjDoc.Signatures.Subset = 5
Debug.Print "5 -> " & oobjDoc.Signatures.Count
oobjDoc.Signatures.Subset = 6
Debug.Print "6 -> " & oobjDoc.Signatures.Count

Output looks like this:

0 -> 5
1 -> 0
2 -> 0
3 -> 0
4 -> 0
5 -> 0
6 -> 5

2 should be 9 , 3 should be 5 and 4 should be 4.
I dont know whats wrong

Thanks in advance

Cross-posted at https://stackoverflow.com/questions/...signaturelines