VBA: Creates a directory if it doesn't exist

CreateDirIfNeeded

Sub TestCreateDirIfNeeded()
    Dim path As String
    path = "C:\imarealboy"
    CreateDirIfNeeded (path)
End Sub

Sub CreateDirIfNeeded(path As String)
    On Error Resume Next
    MkDir path
    On Error GoTo 0
End Sub