主题：[求助]如何将字符串中表示时间的串转换为日期

Dim str As String =Forms("窗口1").Controls("TextBox1").text

Dim strs As String()=str.Split(vbcrlf)

For Each s As String In strs

  If s <> vbcrlf Then

     Dim ss As String()=s.Split(";")

     For Each s1 As String In ss 

         If s1.Contains("开始时间") OrElse s1.Contains("截止时间")  Then

            Dim d As Date = "#" & s1.Split(":")(1) & "#"

            MessageBox.show(s1 & "    转为为时间格式:" & d)

         End If

     Next

  End If

Next