Private Sub GMTstring(DateFormatString As String) As String
Private wrk_str As String
Private wrk_tz_orig As String
Private wrk_jo As JavaObject
wrk_jo.InitializeStatic("anywheresoftware.b4a.keywords.DateTime")
Dim wrk_tz As JavaObject
'Get ID of current time zone
wrk_tz.InitializeStatic("java.util.TimeZone")
wrk_tz = wrk_tz.RunMethod("getDefault", Null)
wrk_tz_orig = wrk_tz.RunMethod("getID", Null)
'Çhange current time zone to GMT
wrk_tz.InitializeStatic("java.util.TimeZone")
wrk_tz = wrk_tz.RunMethod("getTimeZone", Array("GMT"))
wrk_jo.RunMethod("setTimeZoneInternal", Array(wrk_tz)) '<<<<<<<<<<<<<<< Error occurs here
'Get current GMT in requested format
DateTime.DateFormat = DateFormatString
wrk_str = DateTime.Date(AWS_S3_GMT)
'Restore original time zone
wrk_tz.InitializeStatic("java.util.TimeZone")
wrk_tz = wrk_tz.RunMethod("getTimeZone", Array(wrk_tz_orig))
wrk_jo.RunMethod("setTimeZoneInternal", Array(wrk_tz))
Return wrk_str
End Sub