主题：请教关于判断控件值的问题

 想请教下狐表的前辈，除了用IF去判断窗口中控件的VALUE属性外。
用Select Case如何写？？？
我这样写对么？？以下是我在一个窗口的按钮点击事件中添加的代码，在窗口的文本框输入数值时不写入列中，直到点击确认按钮启动下面的事件再进行添加数据操作。
Dim 111 As String = e.Form.Controls("TextBox1").Value '给当前窗口的控件赋值
Dim 222 As String = e.Form.Controls("TextBox2").Value
Select Case e.Form.Controls
    Case "TextBox1"
        If 111 Is Nothing Then '判断如果该控件没有输入数值
    MessageBox.Show("你没有输入数据，请输入.", "错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    e.Form.Controls("TextBox1").Select() '提示并将光标焦点置于该控件
    End If
    Case "TextBox2"
        If 222 Is Nothing Then '判断如果该控件没有输入数值
    MessageBox.Show("你没有输入数据，请输入.", "执行错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    e.Form.Controls("TextBox2").Select() '提示并将光标焦点置于该控件
    End If
    Case Else
CurrentTable.Current("型号") =  e.Form.Controls("TextBox1").Value
CurrentTable.Current("规格") =  e.Form.Controls("TextBox2").Value
CurrentTable.Current.Save() '保存当前行
CurrentTable.AddNew() '新增一行用于连续输入数据
e.Form.Controls("TextBox1").Select() '焦点定位
End Select
请各位前辈指教啊。。。