Public Function OrdnerErstellen()
  On Error GoTo ErrHandler
  Dim fso, f
  Dim OrdnerName As String
  OrdnerName = (App.Path & "\Dokumente\" & frmHandy.txtDummyHandyNr.Text) 'Pfad 
  ' und Namen zusammenstellen
  Set fso = CreateObject("Scripting.FileSystemObject") 'OrdnerObject erstellen
  Set f = fso.CreateFolder(OrdnerName) 'und zum Schluß erstellen
  OrdnerErstellen = f.Path ' und dem Pfad zuweisen
  MsgBox " Order für diese Handynummer erstellt," & vbCrLf & _
  " bitte alle Dokumente und Informationen zur Handynummer" & vbCrLf & _
  " darin ablegen", 48, "Order für Dokumente und Infos angelegt"
  Exit Function
ErrHandler:
  MsgBox "Einen Ordner für diese Handynummer " & vbCrLf & _
            "gibt es bereits, bitte anderen Datensatz " & vbCrLf & _
            "auswählen", 48, "Achtung wichtige Info:"
  End Function