Value

字符型，返回或设置文本框的值。

示例一

假定窗口1中有一个名为"txtSerial"的文本框， 要求编号的长度必须等于6个字符：

With Forms("窗口1").Controls("txtSerial")
    Dim txt As String = .Value
    If txt = "" OrElse txt.Length <> 6  Then
        Messagebox.Show("必须输入六位数的编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End With

示例二

如果要判断输入框是否已经输入值，可以参考下面的代码：

With Forms("窗口1").Controls("txtSerial")
    If .Value Is Nothing Then
        Messagebox.Show("请输入编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End With

有的用户会这样编写代码：

With Forms("窗口1").Controls("txtSerial")
    If .Value = "" Then
        Messagebox.Show("必须输入六位数的编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End With

这种写法对于文本框(TextBox)是可以的，但是对于日期输入框(DateTimePicker)和数值输入框(NumericComboBox)，这种写法是无效的。
所以在判断输入框内容是否为空的时候，最好用第一种写法，切记切记。