Extract date from string

[luca90]

I just have myvar="Fri, 05 Jun 2026 08:36:39 GMT"

how to transform in:

dt=05/06/2026

[Zvoni]

Sub main()
Dim myvar As String
Dim t() As String
Dim regex As RegExp
Dim mc As MatchCollection
Dim m As Match
Dim mydate As Date
    'First way
    myvar = "Fri, 05 Jun 2026 08:36:39 GMT"
    t = Split(myvar, " ")
    mydate = CDate(t(1) & " " & t(2) & " " & t(3))
    Debug.Print mydate 'Prints MyDate in anyone's locale
    
    'Second way - needs reference to VBScript Regular Expressions
    Set regex = New RegExp
    regex.Pattern = ".*?(\d{2} [a-zA-Z]{3} \d{4}).*"
    regex.IgnoreCase = True
    regex.Global = True
    Set mc = regex.Execute(myvar)
    If mc.Count = 1 Then
        Set m = mc.Item(0)
        mydate = CDate(m.SubMatches(0))
        Debug.Print mydate 'Prints MyDate in anyone's locale
    End If
End Sub