[Resolvido]Extrair CEP de um Campo com texto Irregular

Boa noite Amigos.
Tenho um problema e, confesso, ter minhas dúvidas se há solução!
Mas, se houver solução, tenho a certeza que é aqui no Forum, com a ajuda dos amigos, que vamos resolvê-lo. É o seguinte:

Recebo diariamente uma planilha (Excel) com aproximadamente 200 linhas de informação.
Importo estas informações para dentro de uma tabela (Já Existente) do Access (2003 / XP SP3)
Um dos campos que importo são informações do endereço de clientes: [CampoEnd].
Neste campo [CampoEnd] tenho as informações: Rua, n.o., bloco, apto, bairro, CEP, Cidade, etc.)

O que preciso?
> Importar para outro campo [CampoCEP] o número do CEP do endereço que está no [CampoEnd]

Qual o problema?
> as informações no CampoEnd, importadas do Excel, não tem um critério, ou seja, cada vez vem de um jeito, venham alguns exemplos:

> Rua Messias, 44 - Lapa - São Paulo -SP - CEP 03916000
> Rua Messias, 44 - Lapa - São Paulo -SP - CEP 03916-000
> CEP 03916-000 - Rua Messias, 44 - Lapa - São Paulo -SP
> CEP 03916000 - Rua Messias, 44 - Lapa - São Paulo -SP
> 03916000 - Rua Messias, 44 - Lapa - São Paulo -SP
> São Paulo SP / CEP 03916000 Rua Messias, 44 - Lapa
> São Paulo-SP Lapa 03916000 Rua Messias, 44

A única coisa que é segue um padrão é o CEP, que vem: 00000-000 ou 00000000

Muito obrigado

Veja a função no banco zipado em anexo, fiz de acordo com os dados que passou
abra preencha os dados na tabela "endereço" e clique na consulta "puxacep"

o unico problema é se tiver um numero no endereço do tamanho do cep que nao é cep, ai o pc nao faz milagres

neste aqui em anexo eu coloquei o hifem(tracinho) em todos os ceps

veja se responda se ficou bom

Cara!
Simplesmente Fantástico.  
Parabéns e muito obrigado.

Se me permitir, não vou colocar o resolvido ainda, pois gostaria de entender o que fez e aí então, aplicar em meu BD.

Seu BD é composto de uma tabela, uma consulta e um módulo.
Não estou conseguindo ver e/ou entender onde está o "comando" que executa o módulo1.  

Abraços

está na consulta, cuja função chama cep
consulta atualizar cep(t) cujo o t é o campo "end" da tabela que vem do excel
a cada linha da consulta ele vai executar a função cep([end]) que esta na consulta "puxacep"

Amigão, peço-lhe um pouco de paciência comigo.
Seus conheciemtnos estão "anos luz" a minha frente.  

Vamos supor que queira da um outro nome a função "cep".
Por exemplo: ExtrairCEP.
Lá no módulo ficaria assim: "Function ExtrairCEP(t)". É isto?

E na consulta, assim:
Campo: cep
Tabela: Endereço
Atualizar para: ExtraiCEP([End])
É isto?

E sendo assim, teria que substituir, no módulo, todas as expressões "cep" por "ExtrairCEP" ?

Desculpe-me pelo abuso Amigão.  

Muito Obrigado.
Abraços

isso mesmo
so que tambem onde no modulo, na funçao está
atribuindo um valor a "cep" voce troca por "ExtrairCEP"

Código:


Function ExtrairCEP(t)
Dim n, o
On Error GoTo C1
n = Len(t)
If t Like "*########*" Then
o = "v"
ElseIf t Like "*#####-###*" Then
o = "v1"
End If

 If o = "v" Then
  For i = 1 To (n - 7)
    t1 = Mid(t, i, 8)
    If t1 Like "########" Then
      z1 = z1 + 1
      If z1 = 1 Then
      ExtrairCEP = Mid(t1, 1, 5) & "-" & Mid(t1, 6, 8)
      Else
      ExtrairCEP = ""
      End If

    End If
  Next
 ElseIf o = "v1" Then
  For i = 1 To (n - 8)
    t1 = Mid(t, i, 9)
    If t1 Like "#####-###" Then
      z2 = z2 + 1
      If z2 = 1 Then
      ExtrairCEP= t1
      Else
      ExtrairCEP = ""
      End If
    End If
  Next
 End If
C1:
End Function



Vou fazer as alterações ("cep" / "ExtrairCEP") e por para rodar.
Já, já te dou retorno.
Abs

Como dizem nossos amigos Portugueses: "Funfou" perfeitamente.
Parabéns amigão.
Parabéns pela paciência e expertise.
Resolvido.

Abraços

Obrigado