在VB（Visual Basic）中，要在文本框中读取并显示月日，您可以使用以下方法：
方法一：使用`DateValue`函数和`Format`函数
1. 在文本框（例如`Text1`）中输入日期，格式为“yyyy-mm-dd”或其他您希望的格式。
2. 使用`DateValue`函数将文本框中的文本转换为日期。
3. 使用`Format`函数将日期格式化为“yyyy年mm月dd日”或其他格式。
4. 将格式化后的日期显示在另一个文本框或其他控件中。
示例代码：
```vb
Private Sub Form_Click（）
Dim inputDate As String = Text1.Text
Dim formattedDate As String = Format（DateValue（inputDate）, "yyyy年mm月dd日"）
' 将formattedDate显示在另一个文本框中，例如Text2
Text2.Text = formattedDate
End Sub
```
方法二：使用`Now`函数和`MsgBox`函数
1. 使用`Now`函数获取当前日期和时间。
2. 使用`MsgBox`函数显示当前日期和时间。
示例代码：
```vb
Private Sub Command1_Click（）
Dim currentDate As String = Now.ToString（"yyyy年MM月dd日"）
MessageBox.Show（currentDate）
End Sub
```
方法三：使用正则表达式提取日期
1. 如果文本框中的日期格式为“yyyy年mm月dd日”，可以使用正则表达式提取年、月、日。
2. 将提取的日期转换为`DateTime`对象，并格式化为所需的格式。
示例代码：
```vb
Imports System.Text.RegularExpressions
Private Sub Command1_Click（）
Dim input As String = Text1.Text
Dim pattern As String = "（\d{4}）年（\d{1,2}）月（\d{1,2}）日"
Dim match As Match = Regex.Match（input, pattern）
If match.Success Then
Dim year As Integer = Integer.Parse（match.Groups（1）.Value）
Dim month As Integer = Integer.Parse（match.Groups（2）.Value）
Dim day As Integer = Integer.Parse（match.Groups（3）.Value）
Dim dateValue As New DateTime（year, month, day）
Dim formattedDate As String = dateValue.ToString（"yyyy年MM月dd日"）
' 将formattedDate显示在另一个文本框中，例如Text2
Text2.Text = formattedDate
Else
Text2.Text = "没有找到日期"
End If
End Sub
```
建议
确保文本框中的日期格式一致，以便正则表达式能够正确匹配。
如果需要处理多种日期格式，可以考虑使用多个正则表达式或添加更多的逻辑来处理不同的格式。
使用`DateValue`函数可以确保将文本转换为正确的日期类型，而`Format`函数则用于将日期格式化为所需的字符串格式。