在VB编程中，可以使用多种方法来读出年月日。以下是几种常见的方法：
使用`Date`和`DateTime`对象
可以使用`Now`函数获取当前日期和时间，并使用`ToString`方法将其格式化为"yyyy年MM月dd日"的字符串。
```vb
Dim currentDate As DateTime = Now
Dim formattedDate As String = currentDate.ToString（"yyyy年MM月dd日"）
MessageBox.Show（formattedDate）
```
使用`DateValue`函数
如果有一个日期字符串，可以使用`DateValue`函数将其转换为日期值，然后使用`Year`、`Month`和`Day`属性分别获取年、月和日。
```vb
Dim dateString As String = "2023-01-15"
Dim dateValue As Date = DateValue（dateString）
Dim year As Integer = Year（dateValue）
Dim month As Integer = Month（dateValue）
Dim day As Integer = Day（dateValue）
MessageBox.Show（year & "年" & month & "月" & day & "日"）
```
使用正则表达式
如果日期字符串的格式是固定的，可以使用正则表达式来提取年、月和日。
```vb
Dim input As String = "今天是2023年1月15日"
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）
MessageBox.Show（year & "年" & month & "月" & day & "日"）
Else
MessageBox.Show（"没有找到日期"）
End If
```
使用`Label`控件显示日期
可以使用`Label`控件来显示格式化后的日期字符串。
```vb
Dim currentDate As DateTime = Now
Dim formattedDate As String = currentDate.ToString（"yyyy年MM月dd日"）
Label1.Caption = formattedDate
```
这些方法可以根据具体的需求和场景选择使用。建议在实际应用中，先确定日期字符串的格式，然后选择最适合的方法来提取和显示年月日。