MS Word 2010. Åbne passwordbeskyttet dokument med VBA

Jeg forsøger at åbne et passwordbeskyttet MS Word dokument med en makro, men hvis passwordet er over 15 karakterer, fejler min kode med en Runtime error 4198
Kortere password virker fint.

Findes der en bedre metode / anden løsning?


Sub Openpwddoctest()
On Error GoTo ErrorHandler:

Dim myDoc As Document

Set myDoc = Documents.Open(FileName:="c:\Testfile.docx", _ PasswordDocument:="Password_over_15_tegn")

Exit Sub


ErrorHandler:
   
If Err.Number = 5408 Then
    MsgBox ("Dokumentet kan ikke åbnes med det anvendte password")
Else
    MsgBox "Der opstod en fejl. " & Err.Description, vbInformation, "Fejlnummer: " & Err.Number
End If

End Sub