<code>Public Function MakePath(ByVal Verz As String, _
  Optional ShowMsg As Variant) As Integer
 
  Dim antwort As Integer
  Dim Dummy As String
  Dim Entry As String
 
  If IsMissing(ShowMsg) Then ShowMsg = False
 
  antwort = 0: Err = 0
  Dummy = "": Entry = Verz
  On Local Error Resume Next
  While Len(Entry) > 0 And antwort = 0
    If left$(Entry, 1) = "" Then
      Dummy = Dummy + ""
      Entry = Mid$(Entry, 2)
    ElseIf Mid$(Entry, 2, 2) = ":" Then
      Dummy = Dummy + left$(Entry, 3)
      Entry = Mid$(Entry, 4)
    End If
    While left$(Entry, 1) <> "" And Len(Entry) > 0
      Dummy = Dummy + left$(Entry, 1)
      Entry = Mid$(Entry, 2)
    Wend
    Err = 0
    MkDir Dummy
    If Err <> 75 And Err <> 0 Then
      If ShowMsg Then
        antwort = MsgBox("Fehler beim Erstellen des Verzeichnisses!" + vbCrLf + _
          "Das Verzeichnis '" + Verz + "' konnte nicht erstellt werden.",48)
      Else
        antwort = 1
      End If
    End If
  Wend
  On Local Error GoTo 0
 
  MakePath = (antwort = 0)
End Function</code>