隐藏或混淆重要数据

If e.Col.Name = "列名" Then \'请改为实际列名
   If User.name <> "张经理" AndAlso UserName <> "王总监" Then \'如果不是指定用户
      e.Text = "****" \'则修改显示内容
   End If
End If

上面代码对用户名做出了权限设置，能否对用户组作出限制？直接改User.name为User.Group，例如：

If e.Col.Name = "列名" Then \'请改为实际列名
   If User.Group <> "A组" AndAlso UserGroup <> "B组" Then \'如果不是指定用户
      e.Text = "****" \'则修改显示内容
   End If
End If

显示出错，这要怎么写代码？