Problem creating .zip file with password

[HermanTabbert]

Making a .zip file from a .pdf file with password I have the problem when I include
'.encrypt = true I get a error. There wil not be made a .zip file at all.
With .encrypt=False and stil have the .PasswordRequest filled in the .zip file is made correct
but can be opened without password.
Please help.

Option Explicit
Dim BestandIn As String
Dim BestandUit As String
Private WithEvents m_cZ As cZip

Private Sub Command1_Click()
    Set m_cZ = New cZip
    With m_cZ
        .ClearFileSpecs
       .ZipFile = App.Path & "\loonstrook.zip"
       .BasePath = App.Path
       .Encrypt = True
       .PasswordRequest "Herman", 8, False, False
       .AddFileSpec "loonstrook.pdf"
       .Zip
       If .Success = False Then
        MsgBox "Foutje"
       End If


    End With

End Sub