Åben fil med dato

Hej CW
Jeg har en kode som unzipper en zipped fil og gemmer den i en ny mappe der bliver kaldt MyUnzipFolder(dagen dato).
Mappen der bliver oprettet hedder altså MyUnzipFolder efterfulgt af dagens dato. Min kode fejler så ved min makering(##) - da den ikke forstår strData når den skal åbne filen, hvad gør jeg galt?
If Fname = False Then
                    'Do nothing
                Else
                    'Root folder for the new folder.
                    'You can also use DefPath = "C:\Users\Ron\test\"
                    DefPath = "P:\"
                    If Right(DefPath, 1) <> "\" Then
                        DefPath = DefPath & "\"
                    End If
           
                    'Create the folder name
                    strDate = Format(Now, " dd-mm-yy")
                    FileNameFolder = DefPath & "MyUnzipFolder " & strDate
           
                    'Make the normal folder in DefPath
                    MkDir FileNameFolder
           
                    'Extract the files into the newly created folder
                    Set oApp = CreateObject("Shell.Application")
           
                    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
           
                    On Error Resume Next
                    Set FSO = CreateObject("scripting.filesystemobject")
                    FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
                    End If
##                             
                    Dim xx As Workbook
                    Set xx = Workbooks.Open("P:\MyUnzipFolder & strData\ lmpriser_eSundhed_180813.xlsx")