Creacion de directorios

[pauly_0090]

Hola que tal yo de nuevo. Ahora tngo otro error en mi codigo

If Dir("\\SISTEMAS4\Facturas\" & aiio & "", vbDirectory) = "" Then
My.Computer.FileSystem.CreateDirectory("\\SISTEMAS 4\Facturas\" & aiio & "") 'MkDir("\\SISTEMAS4\Facturas\" & aiio & "")
Else
Dim des1 As String = "\\SISTEMAS4\Facturas\"
If Dir("" & des1 & "\" & mes & "", vbDirectory) = "" Then _
My.Computer.FileSystem.CreateDirectory("" & des1 & "\" & mes & "")


en el primer if cuando se crea la carpeta me sale un mensaje de error que dice que no tengo acceso a la carpeta.

y en el segundo if no me crea la carpeta, podrian decirme que estoy poniendo mal???
por favor alguien me puede ayudar???