声明字符串的静态列表并按名称

Question

我希望能够在VB.NET中声明一个静态的字符串列表，如下所示：

Public Class AccessTypes   
 Public Shared ViewRights As String = "viewrights"   
 Public Shared EditRights As String = "editrights"
End Class

然后，在一个函数中，我想将AccessType作为参数传递：

Public Shared Function CheckAccess(ByVal AccessType As String) As Boolean
'-- check access code
'-- return true/false
End Function

检查访问权限时，我可以通过：

CheckAccess(AccessTypes.ViewRights)

但我也可以通过：

CheckAccess("randomstring")

有没有办法让我只能传递一个AccessType类成员，而不只是传递任何随机字符串。

我知道上面的代码存在严重错误。任何建议都会有所帮助。