Hallo, wie kann ich denn Namen der variable datei also ohne Pfad und Dateiendung auslesen?

Private Sub spannungB_Click()

Const LW = "C"

Const pfad = "\Users\XXXXX\Pictures\XXXXX\"

ChDrive LW

ChDir pfad

vival2 = TextBox1

Application.ScreenUpdating = False

datei = Application.GetOpenFilename("Bilder Dateien(*.jpeg;*.jpg;*.png),*.jpeg;*.jpg;*.png", , "Dateien auswählen...", MultiSelect:=False) 

Danke