Android Question Another unparseable date: "Wed, 28 Mar 2018 13:11:26 +0200"

Sub dateparse2( sd As String) As String
    Dim jo As JavaObject
    jo.InitializeStatic("java.util.Locale")
    jo.RunMethod("setDefault", Array As Object(jo.GetField("ENGLISH")))     
    Dim df As String = DateTime.DateFormat
    Dim res As Long
    Try
        DateTime.DateFormat = "EEE, dd MMM yyyy HH:mm:ss ZZZ"
        res = DateTime.DateParse(sd.trim) '<---- line 185
        DateTime.DateFormat = df
        Return DateTime.Date(res)
    Catch
        res = 0
        Log("Error parsing Date 2: " & sd)
        Return sd
    End Try
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Log(dateparse2("Wed, 28 Mar 2018 13:11:26 +0200"))
End Sub

Sub dateparse2( sd As String) As String
   Dim jo As JavaObject
   jo.InitializeStatic("java.util.Locale")
   jo.RunMethod("setDefault", Array As Object(jo.GetField("ENGLISH")))
   Dim df As String = DateTime.DateFormat
   Dim res As Long
   Try
       DateTime.DateFormat = "EEE, d MMM yyyy HH:mm:ss ZZZ"
       res = DateTime.DateParse(sd.trim)
       DateTime.DateFormat = df
       Return DateTime.Date(res)
   Catch
       res = 0
       Log("Error parsing Date 2: " & sd)
       Return sd
   End Try
End Sub

Sub dateparse( sd As String) As String
    'https://developer.android.com/reference/java/text/SimpleDateFormat.html
    'https://www.b4x.com/android/help/ahlocale.html
    Try
        Dim lang1 As AHLocale
        Dim dt As AHDateTime
        lang1.InitializeUS
        dt.Initialize2(lang1)
        If sd.Contains("GMT") Then
            dt.Pattern = "EEE, d MMM yyyy HH:mm:ss z"
        Else If sd.Contains("+") Or sd.Contains("-") Then '+0100
            dt.Pattern = "EEE, d MMM yyyy HH:mm:ss ZZZ"
        Else
            dt.Pattern = "EEE, d MMM yyyy HH:mm:ss"
        End If
        Dim myDate As Long = dt.Parse(sd) '("Mon, 13 Oct 201407:54:00 GMT")
        DateTime.DateFormat = "yyyy.MM.dd HH:mm:ss"
        dt.Initialize2(lang1)
        Log(DateTime.Date(myDate))
        sd = DateTime.Date(myDate)
        Return sd
    Catch
        Log(LastException.Message)
        Return sd
    End Try
End Sub