Const cBeispiel As String = "c:\bla\beispiel.exe"
Dim i As Long
Dim sPfad() As String
 
   sPfad = Split(cBeispiel, "\")
   If UBound(sPfad) >= 0 Then MsgBox sPfad(UBound(sPfad))

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell