Nehmen Sie an, Sie wollen nur den Verzeichnisnamen
    einer kompletten Pfadangabe ermitteln.
    Hierzu habe ich 4 kleine Funktionen,
    die im einzelnen folgendes bewirken:

    1. Laufwerksbuchstaben extrahieren
    2. Verzeichnisname extrahieren
    3. Dateiname extrahieren
    4. Dateiextension extrahieren

   'Laufwerksbuchstaben extrahieren
   Function Laufwerksbuchstabe(Pfad As String)
      Laufwerksbuchstabe = Mid(Pfad, 1, 1) & ":\"
   End Function

   'Verzeichnisname extrahieren
   Function Verzeichnisname(Pfad As String)
      If InStr(Pfad, "\") Then
         For x = Len(Pfad) To 1 Step -1
            If Mid(Pfad, x, 1) = "\" Then
               s = Left(Pfad, x)
               Exit For
            End If
         Next x
      ElseIf InStr(Pfad, ":") = 2 Then
         s = CurDir(Pfad)
         If Len(s) = 0 Then
            s = CurDir
      End If
      Else
         s = CurDir
      End If
      Verzeichnisname = s
   End Function

   'Dateiname extrahieren
   Function Dateiname(Pfad As String)
      If InStr(Pfad, "\") Then
         For x = Len(Pfad) To 1 Step -1
            If Mid(Pfad, x, 1) = "\" Then
               s = Mid(Pfad, x + 1)
               Exit For
            End If
         Next x
      ElseIf InStr(Pfad, ":") = 2 Then
         s = Mid(Pfad, 3)
      Else
         s = Pfad
      End If
      Dateiname = s
   End Function

   'Dateiextension extrahieren
   Function Dateiextension(Pfad As String)
      chrs = InStr(Pfad, ".")
      If chrs Then
         s = Mid(Pfad, chrs + 1)
      Else
         s = ""
      End If
      Dateiextension = s
   End Function

   Pfad="C:\DATEN\VB\LIESMICH.TXT"

'Pfad festlegen

   s1=Laufwerksbuchstabe(Pfad)

'gibt "C:\" zurück

   s2=Verzeichnisname(Pfad)

'gibt "C:\DATEN\VB" zurück

   s3=Dateiname(Pfad)

'gibt "LIESMICH.TXT" zurück

   s4=Dateiextension(Pfad)

'gibt "TXT" zurück