在VB中，您可以使用正則表達式或者內置的日期和時間函數來提取日期。

1. 使用正則表達式提取日期：

Imports System.Text.RegularExpressions

Dim input As String = "今天是2022年1月1日"
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)
    Console.WriteLine(dateValue.ToString("yyyy/MM/dd"))
Else
    Console.WriteLine("沒有找到日期")
End If

2. 使用內置的日期和時間函數提取日期：

Dim input As String = "2022年1月1日"
Dim formats() As String = {"yyyy年M月d日", "yyyy/M/d"}

Dim dateValue As DateTime
If DateTime.TryParseExact(input, formats, CultureInfo.InvariantCulture, DateTimeStyles.None, dateValue) Then
    Console.WriteLine(dateValue.ToString("yyyy/MM/dd"))
Else
    Console.WriteLine("無法解析日期")
End If

以上代碼示例中，我們假設輸入的字符串中包含"2022年1月1日"這樣的日期格式。您可以根據實際情況調整正則表達式或者日期格式。