Select Case "& Text.text&"
         
  Case "&Text1.Text&" = "", MsgBox("仪器名称为空，请输入！")
   Case "&text2.text&" = "", MsgBox("仪器型号为空，请输入！")
 Case "&text3.text&" = "", MsgBox("生产商为空，请输入！")
 Case "&text4.text&" = "", MsgBox("生产日期为空，请输入！")
  Case "&text5.text&" = "", MsgBox("购买日期为空，请输入！")
  Case "&text6.text&" = "", MsgBox("购买人为空，请输入！")
  Case "&text7.text&" = "", MsgBox("购买单价为空，请输入！")
  Case "&text8.text&" = "", MsgBox("购买数量为空，请输入！")
  Case "&text9.text&" = "", MsgBox("备注为空，请输入！")
  Case Else
......................