请帮我看看，一下代码问题出在哪里：
在窗口有3个文本框和一个一个日期输入框，要判断空值提示，不空往下运行。我在删除日期输入框：（计划日期）时，可以运行（会面还有很多公式）
Dim Values As String() = {"(订单号)","(生产单号)","(计划数量)","(计划日期)"}
For Each Va as string In Values
with e.form
if .Controls(va).value = "" then
MessageBox.Show(va &" 资料不全,请录入!", "提示")
end if
end with
Next