Создание папки при ее отсутствии - VB

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

Здравствуйте. Я пишу лаунчер к игре, мне надо реализовать создание каталога в папке Roaming, но надо выполнить проверку есть ли этот каталог там. То есть вида: Если каталог "Лаунчер" есть, то msgbox "Есть" иначе Создать папку "Лаунчер" в каталоге Roaming. И у меня это не получается:

                    Листинг программы
                
If Dir(Environ("Appdata") & "\Roaming\MP") <> "" Then
MsgBox "Есть"
Else
MkDir Environ("Appdata") & "\Roaming\MP"
End If

И тут 2 проблемы: 1) Всегда, независимо от существования папки выводится сообщение "Есть". 2) Папка MP с помощью кода:

                    Листинг программы
                
MkDir Environ("Appdata") & "\Roaming\MP"

Не создаётся вообще, даже если код выглядит так:

                    Листинг программы
                
Private Sub Form_Load() 
MkDir Environ("Appdata") & "\Roaming\MP"
End Sub

Пишет ошибку: Path/File access error Как можно выкрутиться ещё?

Решение задачи: «Создание папки при ее отсутствии»

textual
                            Листинг программы 
                        
Sub Form_Load()
Dim FSO As New Scripting.FileSystemObject
If FSO.FolderExists("C:\Papka") Then MsgBox "Папка есть" Else MsgBox "Папки нет"
End Sub
 
'Аналогично FileExists - наличие файла, DriveExists - наличие жесткого диска