I wrote this code:

Private Sub txtName_LostFocus()
Call CheckTextValidation(txtName)
End Sub

Public Function CheckTextValidation(txt As TextBox) As Boolean
If txt.Text = Empty Then
Call MsgBox("you should insert data to this field", vbExclamation + vbOKOnly, App.Title)
CheckTextValidation = False

Else
CheckTextValidation = True
End If
End Function

But ,it doesn't work properly after it display the first
msgbox and i clicked OK it display the msgbox AGAIN !!!

PLEASE HELP