Visual Basic - Crear directorio

Hola 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 :-)

Prueba asi:

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