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))
Postado : 27/02/2015 11:51 am