Ciao
Probabilmente te la puoi cavare più semplicemente usando la proprietà Attributes della DirectoryInfo che ti viene restituita quando la crei:
'Crei la directory e ottieni un oggetto col quale puoi controllarla
DirectoryInfo di = Directory.CreateDirectory( _
Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\prova\")
'Mantieni tutti gli attributi tranne ReadOnly (rimuove ReadOnly dagli attributi)
di.Attributes = (di.Attributes And Not FileAttributes.ReadOnly)
Luca