i.e. Don't create a string variable and then check if it's equal to "Yes", "True", "On", or an integer variable and check for 1.
If the your flag is contained in a session variable or textbox, just declare a Boolean variable and use it going forward.
If (sAccess = "Yes") Then 'Go ahead
Dim bAccess: bAccess = False If (sAccess = "Yes") Then bAccess = True If (bAccess) Then 'Go ahead