フォルダが存在しなければ作成するVBA

Dim folderPath As String
folderPath = ThisWorkbook.Path & "/hoge"
If Dir(filePath, vbDirectry) = "" Then
    MkDir folderPath
End If