[Resolvido]Campo com preenchimeto obrigatório de 2 nomes ou 2 palavras

Boa tarde Amigos

Num campo precisava que ao perder o foco ou ao sair do campo, ele me informasse que não tem 2 nomes.

Exemplo se só com :

António ----- informa que só tem um nome e move para lá o foco para completar.

Se tiver :

António Costa ---- não dá informação nenhuma pois esta correto.

Obrigado

Vê se ajuda meu amigo.

Código:

Option Compare Database
Option Explicit

Public Function CortaAoPrimeiroEspaco(strTexto As String) As String
On Error GoTo 1
CortaAoPrimeiroEspaco = Left(strTexto, InStr(strTexto, " ") - 1)
1
End Function


Public Function CortaAoUltimoEspaco(strTexto As String) As String
On Error GoTo 1
CortaAoUltimoEspaco = Right$(strTexto, InStr(strTexto, " ") - 1)
1
End Function

Código:

Option Compare Database
Option Explicit

Private Sub Texto0_LostFocus()
Dim k As Variant

Dim strVar, StrUltimo As String

strVar = CortaAoPrimeiroEspaco(Me.Texto0)

StrUltimo = CortaAoUltimoEspaco(Me.Texto0)


If StrUltimo = "" Or IsNull(StrUltimo) Then

    MsgBox ("Sem Sobrenome!"), vbExclamation, "Mensagem"
Else

    MsgBox ("Com Sobrenome!"), vbInformation, "Mensagem"
End If


End Sub

Obrigado Elias