Использование окружающей среды для группы Windows AD

Question

У меня есть код в VBA, который сравнивает имя пользователя, введенное на странице входа в систему с его именем пользователя Windows.

но я хочу, чтобы код проверял проверку только в одной группе AD (доступ будет разрешен только пользователям, присутствующим в этой группе AD). Пожалуйста, предложите мне, что мне следует изменить в своем коде, чтобы проверить доступ только в одной группе AD.

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value = Environ("UserName") Then
        MsgBox "User name matches Windows Login name"
        'Continue with required code here
    Else
        MsgBox "User name does NOT match the Windows Login name"
        Exit Sub
    End If

End Sub