Pfad und Dateiname trennen

Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
'Darf der User mehrere Dateien auswählen Nein
.AllowMultiSelect = False
'Name des Buttons des Dialogs
.ButtonName = "Bild auswählen"
'FIlter, welche Dateien darf er auswählen
.Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
.Filters.Add "Alle", "*.*"
.FilterIndex = 0
'Welches Verzeichnis soll geöffnet werden
.InitialFileName = ThisWorkbook.path
'Anzeige des Dialogs - die Dateien als Thumbnail
.InitialView = msoFileDialogViewDetails
'Titel halt
.Title = "Meine Bilderdatenbank der Züge"
End With
If dlg.Show = True Then

'Die ABfrage für den selektierten Eintrag
For Each si In dlg.SelectedItems

If MsgBox("Soll dieses Bild - " & si & " - übernommen werden?", vbYesNo + vbQuestion, "Abfrage...!") = vbYes Then
ActiveCell.Value = si
Else
MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
Exit Sub
End If

Next

End If
End Sub