Public Function ExtractFile(ByVal WholePath As String, Optional ByRef _
  ExtractedPath As String) As String
 
    Dim LastFoundPos As Long
 
    If WholePath = vbNullString Then
        Exit Function
    End If
    WholePath = Replace(WholePath, Chr(34), vbNullString) ' "" entfernen falls _
      vorhanden
    If InStr(1, WholePath, "\") <> 0 Then
        LastFoundPos = InStrRev(WholePath, "\", , vbTextCompare)
    ElseIf InStr(1, WholePath, "/") <> 0 Then
        LastFoundPos = InStrRev(WholePath, "/", , vbTextCompare)
    End If
    If LastFoundPos <> 0 Then
        ExtractedPath = Left(WholePath, LastFoundPos)
        ExtractFile = Right(WholePath, Len(WholePath) - LastFoundPos)
    Else
        ExtractedPath = vbNullString
        ExtractFile = WholePath
    End If
 
End Function

Dim Pfad As String
Dim ExtractedPath As String
 
Pfad = "http://www.domain.de/verzeichnis/bild.jpg"
 
Call MsgBox("Datei: " & ExtractFile(Pfad, ExtractedPath))
Call MsgBox("Pfad: " & ExtractedPath)