Ordner erstellen aus Makro Skript

Sub OrdnerErstellen()
Dim fso As Object
Dim i As Integer
Dim strPfad As String
Dim appWord As Object
Dim strText As String
Set fso = CreateObject("Scripting.Filesystemobject")
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
strPfad = ThisWorkbook.Path & "\" & Cells(i, 3) & ", " & Cells(i, 4) & " " & Cells(i, 5)
If Not ordnerda(strPfad) Then
MkDir strPfad
MkDir strPfad & "\Abnahme"
MkDir strPfad & "\Einweisung"
MkDir strPfad & "\Gebrauchsanweisung - Pflegehinweise"
MkDir strPfad & "\Gefährdungsbeurteilung"
MkDir strPfad & "\Komformitätserklärung"
MkDir strPfad & "\Validierung"
End If
Next i
Set fso = Nothing
strText = " Die Ordner mit den Dokumenten wurden angelegt !!!"
MsgBox strText, 64, "Meldung"
End Sub