[Resolvido]Chamar Função pela Consulta

Prezados, boa tarde!!

Gostaria de uma pequena ajuda dos senhores, criei uma Função e gostaria que esta função fosse chamadas pela consulta, e assim me trazendo o resultado desejados da função, mas não estou conseguindo efetuar esta tarefa, preciso de uma orientação para saber onde estou errando, pois nunca fiz este tipo de procedimento.

Função:

Código:

Public Function Local_VGX_1423(N_FAMS_SIS)
Dim N_FAM_SIS As Integer
Dim Local1, Local2 As Variant
Dim LocalPrincipal, LocalSecundario, LocalFinal As String
Dim Local_VGX(1 To 25)  As String

Local_VGX(1) = "BELO MONTE"
Local_VGX(2) = "BELO MONTE DO PONTAL"
Local_VGX(3) = "CANA VERDE - MANGUEIRAS"
Local_VGX(4) = "CARACOL"
Local_VGX(5) = "GARIMPO DO GALO"
Local_VGX(6) = "GLEBA BACAJA"
Local_VGX(7) = "GLEBA BACAJAI"
Local_VGX(8) = "GLEBA ITATA"
Local_VGX(9) = "IGARAPE BACAJAI"
Local_VGX(10) = "IGARAPE ITATA"
Local_VGX(11) = "ILHA DA BALEIA"
Local_VGX(12) = "ILHA DA FAZENDA"
Local_VGX(13) = "ITUNA"
Local_VGX(14) = "JERICOA"
Local_VGX(15) = "KAITUKA"
Local_VGX(16) = "MARANHENSES"
Local_VGX(17) = "NOVA CONQUISTA"
Local_VGX(18) = "PIRARARA-PONTAO"
Local_VGX(19) = "RAMAL DO JULIAO"
Local_VGX(20) = "RESSACA"
Local_VGX(21) = "RIO BACAJA"
Local_VGX(22) = "RIO DAS PEDRAS"
Local_VGX(23) = "SURUBIM NOVO PROGRESSO"
Local_VGX(24) = "TERRA PRETA"
Local_VGX(25) = "VILA IZABEL"

LocalPrincipal = DLookup("[EndPrinBairroVila]", "tab_Principal", "[CodFamSis]=" & N_FAMS_SIS)
LocalSecundario = DLookup("[EndSecBairroVila]", "tab_Principal", "[CodFamSis]=" & N_FAMS_SIS)

        For X = 1 To 25
                    If (LocalPrincipal = Local_VGX(X)) Or (LocalSecundario = Local_VGX(X)) Then
                        LocalFinal = Local_VGX(X)
                    Else
                        LocalFinal = "1_LOCAL 1 E 2 NAO E VGX 14.2.3"
                    End If
        Next

Chamando a função:





A variavel LocalFinal tem que sair na consulta referente ao N_FAM_SIS que se refere a codigo,


att, Sidney

Prezados,
Consegui resolver, obrigado assim mesmo,

Att Sidney