[Resolvido]Captura de texto limitado aos espaços em branco

Pessoal,

Preciso que em um campo2 apareça o primeiro nome da pessoa que está no campo1.
Pensei em usar a expressão "Meio/Esquerda/Direita".
O problema é que no texto do campo1 aparece a matrícula funcional da pessoa da seguinte maneira:

a123456 - João Honório Pessoa

Há uma forma em que eu consiga capturar no campo1 somente a palavra "João" do exemplo acima e jogá-lo no campo2?

abçs

Leandro

P.S. Eu até poderia utilizar a expressão "Meio", mas somente dá certo para nomes com o mesmo número de caracteres...

Olá Avelino,

não compreendi como funciona esta função...
entrei no teu site e também não consegui entender.

onde coloco este código?
ele servirá somente para o empregado João?

att

Leandro

Uso a função Split com o Professor Avelino lhe passou e resulta com nota 10;

Num modulo;

Public Function fncSepara(strCampo As String)
    Dim k
    k = Split(strCampo, " ")
    fncSepara = k(2)
End Function

Num novo campo na sua consulta:

Separação: fncSepara([SeuCampo])

Avelino, JPaulo,

com algumas adaptações... funfou!

Mais uma vez, plenamente satisfeito.

thanks

Leandro