主题：如何用正则表达式将匹配到的不标准日期格式化成标准日期，且在转换后在每个标准日期前插入一个回车符，并替换原来文本？

请教老师：

     如何用正则表达式将匹配到的不标准日期格式化成标准日期，且在转换后在每个标准日期前插入一个回车符，并替换原来文本。

     比如：

           2018年5月毕业于西安大学。2018/9就职于东方公司，2020-7-16在东方公司任销售经理，2021/5/28任销售总监。

     匹配、转换成如下文本：

           2018-05-01毕业于西安大学。

           2018-09-01就职于东方公司，

           2020-07-16在东方公司任销售经理，

           2021-05-28任销售总监。

代码如下：

Dim str As String = "2018年5月毕业于西安大学。2018/9就职于东方公司，2020-7-16在东方公司任销售经理，2021/5/28任销......"
Dim reg As New System.Text.RegularExpressions.Regex("(^[0-9]{2,4}[-|/|.|年]\d{1,2}[-|/|.|月]\d{0,2}[日]?)")
If str Is Nothing Then
    Return
Else
    For Each mat As System.Text.RegularExpressions.Match In reg.Matches(str)
        ？？？？？？？？？？？？？
    Next
End If

代码不会写了，请老师指点，谢谢！