Tá meio vaga a tua dúvida. Seria isso:

Dim nomes() As String

nomes = Split(txtNomeColab, " ")

MsgBox nomes(LBound(nomes))
MsgBox nomes(UBound(nomes))

Ou isso:

Dim nomes() As String

nomes = Split(txtNomeColab, " ")

txtApelido = nomes(LBound(nomes)) & " " & nomes(UBound(nomes))

Não consegui acertar.
Vamos dizer que em um Userform eu tenha 2 textbox:
1 - txtNomeColab, onde será digitado o nome completo de uma pessoa;
2 - txtApelido, onde irá RECEBER o primeiro e o último nome digitado na txtNomeColab.

Ex.:
Digito o nome "Luis Inácio Lula da Silva" na txtNomeColab;
Após sair dessa digitação irá APARECER na txtApelido o nome "Luis Silva", automaticamente.

Radao

Movi teu tópico para Formulários, pois o local onde vc havia postado é exclusivo para postagem de apostilas, exemplos, etc., não sendo permitido postar dúvidas.

Por enquanto vou deixar teu tópico sendo mostrado nos 2 locais.

[]s

Patropi - Moderador

Gostaria de saber se tem alguem que possa me ajudar
Vamos dizer que em um Userform eu tenha 2 textbox:
1 - txtNomeColab, onde será digitado o nome completo de uma pessoa;
2 - txtApelido, onde irá RECEBER o primeiro e o último nome digitado na txtNomeColab.

Ex.:
Digito o nome "Luis Inácio Lula da Silva" na txtNomeColab;
Após sair dessa digitação irá APARECER na txtApelido o nome "Luis Silva", automaticamente.

Como podeira incluir uma macro para isso

Boa tarde!!

Temos muitos casos que possam ser adaptados em nossa base de dados.

Você também poderia jogar o texto em célula e separa-los (além de usar um função via VBA), depois retornar o texto separado nas textbox's desejadas!
http://www.google.com.br/cse?cx=partner ... %20textbox

Att

Não entendi, a proposta/resposta do colega Gilmar ( gtsalikis ) faz o que deseja, porem seu retorno

Não consegui acertar

não esclarece o que tentou fazer e não conseguiu. Pode ser um pouco mais especifico, se postar um modelo/exemplo poderá então receber um retorno mais efetivo