IsUserAnAdmin - это простой вызов, и он кажется совершенно надежным для использования в программах VB6. Вроде бы нормально работает даже в Win8.
Обратите внимание, что он сообщает, выполняется ли процесс с правами администратора, а не входит ли пользователь в группу администраторов.
Объявление так должно работать вплоть до Windows 2000:
Private Declare Function IsUserAnAdmin Lib "shell32" Alias "#680" () As Long