este código funciona para extraer todos los archivos en un archivo rar

 Sub Extract() Dim RarIt As String Dim Source As String Dim Desti As String Dim WinRarPath As String WinRarPath = "C:\Program Files\WinRar\" Source = "C:\Reports\EMEA Load.rar" Desti = "C:\Reports\" RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " e " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus) End Sub

Mi pregunta es cómo obtener una lista de todos los archivos extraídos