怎么样将dtpicker.text的值转换格式

怎么样将dtpicker.text的值像2013年5月6日这样的值转换成2013-5-6这样的

Dim str As String = DateTime.Parse("2010年4月3日").ToString("yyyy-MM-dd")
MessageBox.Show(str)
应该是DatetimePicker控件的显示格式问题？
1.设置控件的Format属性为：Custom
2。设置控件的CustomFormat属性为：yyyy-MM-dd

 Dim Res As String = System.Text.RegularExpressions.Regex.Replace("2009年12月23日", "[\u4E00-\u9FA0]", "-")
        Res = System.Text.RegularExpressions.Regex.Replace(Res, "\-$", "")
        Console.WriteLine(Res)