Visual Basic - Crear directorio

Hol amigos:

De nuex yo, ahora con la nueva de que a mi programa ya le puse licencia, se minimiza en el systray y todo. pero, ahora necesito crear un directorio llamado "DBs" donde se guardara la base de datos que el programa genera, he utilizado esto:

If FileSystem.Dir(App.Path) <> "\DBs" Then
MkDir App.Path & "\DBs"
ElseIf FileSystem.Dir(App.Path & "\DBs") <> "" Then
Else
End If

si crea el directorio, solo que lo hace cada que carga el formulario. Tambien esto:

If FileSystem.Dir(App.Path & "\DBs") <> "" Then
MkDir App.Path & "\DBs"
End If

si crea el directorio, solo que lo hace cada que carga el formulario. Tambien esto:

¿Alguien sabe una altenativa para esto?

GRACIAS :-)

Dim FileSys as Variant
Set FileSys = CreateObject("Scripting.FileSystemObject")
If FileSys.FolderExists(App.Path & "\DBs") = False then
FileSys.CreateFolder App.Path & "\DBs"
End If

Es lo mismo pero no es igual jejeje

mejor agregas la referncia al programa y lo manejas como un objeto. Asi es mas didactico el uso de las funciones.

Aunque en el fondo sigue siendo lo mismo pero igual :D