Não sei se entendi bem o que você quer fazer porém vai ai alguma coisa, veja se é isto.
No text1 coloque no evento LostFocus o seguinte código:
Private Sub Text1_LostFocus()
Dim v As Integer
v = MsgBox("isto é um teste", vbOKOnly, "TESTE")
End Sub
Quando terminar de digitar e der um Tab passando o focus para o proximo objeto será exibida sua mensagem.
se quiser me explicar melhor sua questão para te ajudar me add
jilney@hotmail.com e trocaremos ideias no msn.