Verzeichnis und Pfad prüfen

Public Sub Laufw_Speichern()
Dim Verz, VerzOrd, VerzNam As String
Dim strPath$, strPathD
Dim vers, PathVerz, DateiVers
ChDir "\\WW\f\"
strPath = "\\ww\f\"
ChDir strPath
VerzOrd = "Aufträge"
PathVerz = strPath & VerzOrd
DateiVers = "#_Holz-Balken_Händler  " & "vers. " & Sheets("Aufträge-Rein").Range("Q1")
If Dir(PathVerz, vbDirectory)  "" Then     'Prüfung ob vorhanden
MsgBox "Verz. vorhanden"
Else
MsgBox "kein Verz"
MkDir (PathVerz & "\")
End If
End Sub