altrimenti puoi mettere il codice qui sotto nell'evento lostfocus:
codice:
Private Sub CampoTesto1_LostFocus()
    if CampoTesto1.Text ="" then 'o quello che vuoi
        MsgBox "Messaggio"
        CampoTesto1.SetFocus
    end if
End Sub