VBA: Create folder if not existed

Code:

' check if folder exist
If Dir("folder path", vbDirectory) = "" Then
' if not exist, create
MkDir "folder path"
End If