[VB.NET 2012] creazione directory

[Trommo]

Sapete dirmi perche non funziona?

 Sub exist()
        If (Directory.Exists(Environment.SpecialFolder.ProgramFilesX86 & "\x-htmlp")) = False Then
            Directory.CreateDirectory(Environment.SpecialFolder.ProgramFilesX86 & "\x-htmlp")
        End If
    End Sub