Office: VB Makro: Bilder mit Dateinamen einfügen

Hallo alle miteinander

Ich habe da ein Makro im gefunden welches meine Bedürfnisse ziemlich gut abdeckt. Ich habe es schon leicht anpassen können. Ich kann damit einen Pfad angeben und automatisch werden alle Bilder im Verzeichnis eingelesen und in Word eingefügt.

Nun kriege ich es einfach nicht hin, dass mit der Dateiname jeweils gleich unter die Bilder geschrieben wird.

Hier das Makro:

Code:

Option Explicit

Sub Bildkatalog()
    Dim strVerz As String
    Dim strDName As String
    strVerz = InputBox(("Pfad angeben ..."), "Alle Bilder aus Verzeichnis einfügen", _
                       "D:\Eigene Dateien\Eigene Bilder\")
    If Right(strVerz, 1) <> "\" Then strVerz = strVerz & "\"
    strDName = Dir(strVerz & "*.jpg")   'Typ anpassen (*.* für alle Typen)
    If strDName <> "" Then
        prgBilderEinfuegen strVerz, strDName
    End If
    Do While (strDName <> "")
        strDName = Dir()
        If strDName <> "" Then
            prgBilderEinfuegen strVerz, strDName
        End If
    Loop
End Sub

Sub prgBilderEinfuegen(strVerz As String, strDName As String)
    Selection.InlineShapes.AddPicture (strVerz & strDName), LinkToFile:=False, _
                                      SaveWithDocument:=True
    Selection.TypeParagraph
    Selection.TypeParagraph
End Sub

Im "Sub prgBilderEinfuegen" müsste ich doch nur irgendwie den Inhalt der Variable "StrDName" zwischen die beiden Selection.TypeParagraph Zeilen reinkriegen. Oder liege ich da falsch.

Schon im Voraus vielen Dank für etwaige Hilfe.