Try
'Ta fram filens tidstämpel
Str="09 Jul 2016 09:14:23 GMT"
Str=Str.SubString2(0,Str.IndexOf("GMT"))
Str=Str.Trim
Dim l As Long
DateTime.DateFormat ="dd MMM yyyy"
DateTime.TimeFormat="HH:mm:ss"
Log(DateTime.DateParse(Str.SubString2(0,12).Trim))
Log(DateTime.TimeParse(Str.SubString(12).trim))
l=DateTime.DateTimeParse(Str.SubString2(0,12).Trim,Str.SubString(12).trim)
l=l+(DateTime.TimeZoneOffset * DateTime.TicksPerHour)
Str=DateTime.Date(l) & " " & DateTime.Time(l)
Str=Str.trim
Log(Str)
Catch
Log(LastException.Message)
End Try