如何保留焦点

在窗体中有几个文本框及组合框，

现在想让当光标进入某个文本框后，

如果不输入数据(即文本框中是空的)光标就无法转移到其它控件。

如：

Private Sub Text4_LostFocus()
If Len(Me.Text4) > 0 Then
Else
MsgBox "此内容不能为空 ！ ", 64, "提示"
Me.Text4.SetFocus

End If
End Sub

这样无法实现，“回车”后焦点还是移到下一控件去。