Try this:
DirectorySecurity ds = Directory.GetAccessControl(@"C:\Program Files");
foreach (FileSystemAccessRule rule in ds.GetAccessRules(true, true, typeof(NTAccount)))
{
Console.WriteLine($"Account:{rule.IdentityReference.Value}\n {rule.FileSystemRights}:{rule.AccessControlType}");
}
Or (auto translated to child code):
Dim ds As DirectorySecurity = Directory.GetAccessControl("C:\Program Files")
For Each rule As FileSystemAccessRule In ds.GetAccessRules(True, True, GetType(NTAccount))
Console.WriteLine($"Account:{rule.IdentityReference.Value}\n {rule.FileSystemRights}:{rule.AccessControlType}")
Next
You should be able to work it out from there.