Erreur DateTimePicker1.Value avec regex?

Bonjour,

mon problème avec regex avec DateTimePicker1.Value. Il m'affiche une erreur : "La chaîne n'a pas été reconnue en tant que DateTime valide." et en manuelle fonctionne très bien.

dans richtextbox1 :

Citation:

Valid from: Mon Jul 22 15:09:52 CEST 2019 until: Thu Jul 22 15:09:52 CEST 2049

mon code regex :

Code:

1
2
3
4
5
6
7
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each match1 As Match In Regex.Matches(RichTextBox1.Text, "Valid from:(.*)until:(.*)", RegexOptions.IgnoreCase)
            TextBox1.Text = match1.Groups(1).Value
            TextBox2.Text = match1.Groups(2).Value
            DateTimePicker1.Value = ConvertDatetime(match1.Groups(1).Value) <= m'affiche erreur
        Next
    End Sub

Mon code manuelle fonctionne trés bien :

Code:

1
2
3
4
5
6
7
8
9
Dim Str As String = "Mon Jul 22 15:09:52 CEST 2019"
        TextBox3.Text = ConvertDatetime(Str)
        DateTimePicker2.Value = ConvertDatetime(Str)
 
Private Function ConvertDatetime(Str As String) As String
        Dim data As String() = Str.Split(" ")
        Dim Formats As String() = New String() {"ddd, dd MMM yyyy HH:mm:ss " & data(4), "ddd dd MMM yyyy HH:mm:ss " & data(4), "ddd dd MMM yyyy HH:mm:ss " & data(4), "ddd, dd MMM yyyy HH:mm:ss " & data(4), "ddd MMM dd HH:mm:ss " & data(4) & " yyyy", "ddd, MMM dd HH:mm:ss " & data(4) & " yyyy", "ddd MMM dd HH:mm:ss " & data(4) & " yyyy"}
        Return DateTime.ParseExact(Str, Formats, CultureInfo.InvariantCulture, DateTimeStyles.None)
    End Function

Pouvez-vous m'expliquer pourquoi avec regex ça fonctionne pas car c'est le mème résulta en manuelle? merci