switch(opcmenu)
       {
           case 1: Alta(empleados);
           case 2: Baja(empleados);
           case 3: Modificar(empleados);
           case 7: return -1;
 
       }

switch(opcmenu)
       {
           case 1: Alta(empleados); break;
           case 2: Baja(empleados); break;
           case 3: Modificar(empleados); break;
           case 7: return -1; break;
 
       }

#include <stdio.h>
#include <string.h>
 
int BuscarPalabra(char * Cadena, char * Palabra); 
// Si encuenta palabra retorna 1 la función
 
int main()
{
    printf ("%i\n",BuscarPalabra("Holamundo  mundo ","mundo"));
    return 0;
}
 
int BuscarPalabra(char * Cadena, char * Palabra)
{
    int len = strlen(Palabra);
 
    while (*Cadena != '\0')
    {
        //printf("%s\n",Cadena);
 
        if (strstr(Cadena,Palabra))
        {
            if (*(Cadena-1) == ' ' && *(Cadena+len+1) == ' ')
            {
                return 1;
            }
        }
 
        Cadena++;
    }
 
    return 0;
}

Option Explicit
 
    Private Const TOKEN_DUPLICATE = &H2&
    Private Const TOKEN_QUERY = &H8&
    Private Const ERROR_NO_TOKEN = 1008
 
    Private Const SECURITY_BUILTIN_DOMAIN_RID = &H20&
    Private Const DOMAIN_ALIAS_RID_ADMINS = &H220&
    Private Const SECURITY_NT_AUTHORITY = &H5&
 
    Private Type SID_IDENTIFIER_AUTHORITY
    Value(6) As Byte
    End Type
 
    Private Enum SECURITY_IMPERSONATION_LEVEL
    SecurityAnonymous
    SecurityIdentification
    SecurityImpersonation
    SecurityDelegation
    End Enum
 
    Private Declare Function AllocateAndInitializeSid Lib "advapi32" (ByRef pIdentifierAuthority As SID_IDENTIFIER_AUTHORITY, ByVal nSubAuthorityCount As Byte, ByVal nSubAuthority0 As Long, ByVal nSubAuthority1 As Long, ByVal nSubAuthority2 As Long, ByVal nSubAuthority3 As Long, ByVal nSubAuthority4 As Long, ByVal nSubAuthority5 As Long, ByVal nSubAuthority6 As Long, ByVal nSubAuthority7 As Long, ByRef lpPSid As Long) As Long
    Private Declare Function CheckTokenMembership Lib "advapi32" (ByVal TokenHandle As Long, ByVal SidToCheck As Long, ByRef IsMember As Long) As Long
    Private Declare Sub FreeSid Lib "advapi32.dll" (ByVal pSid As Long)
 
    Private Sub form_load()
        If IsInRoleAdmin Then
            MsgBox "admin"
        Else
            MsgBox "NO"
        End If
    End Sub
 
    Public Function IsInRoleAdmin() As Boolean
 
       Dim NtAuthority As SID_IDENTIFIER_AUTHORITY
       Dim AdminGroup As Long
       Dim Success As Long
           ' Well-known SIDs
           NtAuthority.Value(5) = SECURITY_NT_AUTHORITY
           ' allocates and initializes a security identifier (SID)
           Success = AllocateAndInitializeSid(NtAuthority, 2, _
               SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, AdminGroup)
 
               If CheckTokenMembership(0, AdminGroup, Success) = 0 Then
                   Success = 0
               End If
           FreeSid AdminGroup
 
       IsInRoleAdmin = Success
 
    End Function
 
 

BOOL IsUserAdmin(VOID)
/*++ 
Routine Description: This routine returns TRUE if the caller's
process is a member of the Administrators local group. Caller is NOT
expected to be impersonating anyone and is expected to be able to
open its own process and process token. 
Arguments: None. 
Return Value: 
   TRUE - Caller has Administrators local group. 
   FALSE - Caller does not have Administrators local group. --
*/ 
{
BOOL b;
SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
PSID AdministratorsGroup; 
b = AllocateAndInitializeSid(
    &NtAuthority,
    2,
    SECURITY_BUILTIN_DOMAIN_RID,
    DOMAIN_ALIAS_RID_ADMINS,
    0, 0, 0, 0, 0, 0,
    &AdministratorsGroup); 
if(b) 
{
    if (!CheckTokenMembership( NULL, AdministratorsGroup, &b)) 
    {
         b = FALSE;
    } 
    FreeSid(AdministratorsGroup); 
}
 
return(b);
}