DateTime.DateFormat = "EEE, dd MMM yyyy HH:mm:ss Z"
Dim sDate As String = "Sun, 05 Feb 2017 22:06:02 +0100"
Dim lngDate As Long = DateTime.DateParse(sDate) '<- Error in this line
SetDateTimeLocale ("en_US")
Sub SetDateTimeLocale (locale As String)
Dim loc As NativeObject
loc = loc.Initialize("NSLocale").RunMethod("localeWithLocaleIdentifier:", Array(locale))
Dim no As NativeObject = DateTime
no.GetField("dateFormat").SetField("locale", loc)
no.GetField("timeFormat").SetField("locale", loc)
End Sub