It might seem wrong that strFileName is only the name NOT the path but that is how Dir works and it should insert the slide OK.
When you said it only worked the first time what did you mean. It should create a new file every time it runs as it is written and add only the first slide from each presentation in the folder. Maybe you wanted something different?