Public Function OrdnerErstellen()
On Error GoTo ErrHandler
Dim fso, f
 Dim OrdnerName As String
OrdnerName = (App.Path & "\Dokumente\" & frmHelmutsListe.txtdummy.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 " Neuen Order für dieses Produkt erstellt," & vbCrLf & _
" bitte alle Dokumente und Bilder zu diesem Produkt" & vbCrLf & _
" darin ablegen", 48, "Order für Dokumente angelegt"
Exit Function
ErrHandler:
MsgBox "Einen Ordner für dieses Produkt " & vbCrLf & _
             "gibt es bereits", 48, "Achtung wichtige Info:"
' CStr(Err.Number) & " " & Err.Description
End Function