Public Function split_folder(otlk As Object, fPath As String) As Object
Dim a() As String
Dim fol As Object
Dim i As Integer
  On Error GoTo split_folder_Error
  Set fol = otlk
  a = Split(fPath, "\")
  Set fol = otlk
  For i = LBound(a) To UBound(a)
    If a(i) > "" Then
        Set fol = fol.Folders(a(i))
    End If
  Next i
  Set split_folder = fol
 
  On Error GoTo 0
  Exit Function
 
split_folder_Error:
  MsgBox "Fehler:" & Err.Number & vbCrLf & Err.Description & " in Prodzedur" & _
    "split_folder vom Formular frmMain"
  Resume Next
 
  On Error GoTo 0
  Exit Function
 
End Function