add pasword to csv in vba and zipping

Question

how add encrypt with password to csv file and ** zipping**(.zip) Output file?

Sub ExportRange()
    Dim Filename As String
    Dim NumRows As