realworld powerpoint malware analysis

Dim key As String Dim next_key As String Dim res As String key = Date This is part of the problem provided, but if you proceed with decryption via Date I wonder if decryption does not proceed according to the starting point of solving the problem. I changed the value and tried decrypting those