Поправить Ошибку кода - VB

Формулировка задачи:

Ребята укажите где ошибка измаялся я весь!

MkDir "App.Path & Format(Date, "Mmmm YYYY") & ""

так работает:

MkDir "D:\Мои документы\Desktop\ОТЧЕТЫ\ " & Format(Date, "Mmmm YYYY") & ""

Решение задачи: «Поправить Ошибку кода»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim strPath As String
    strPath = App.Path & "" & Format(Date, "Mmmm YYYY")
    If DirExist(strPath) Then
        MsgBox "Папка существует"
    Else
        MkDir strPath
        MsgBox "Папка успешно создана"
    End If
End Sub
 
Function DirExist(dirName As String) As Boolean
    On Error Resume Next
    DirExist = Dir$(dirName, vbDirectory) <> ""
    If Err.Number <> 0 Then DirExist = False
    On Error GoTo 0
End Function
                        