Sub SouthAfricanDateTime() As String
Dim nativeMe As JavaObject
Dim theTime As String
Dim city As String = "Africa/Johannesburg"
nativeMe.InitializeContext
theTime = nativeMe.RunMethod("getTheTime",Array(city))
Log(theTime)
theTime = Replace(theTime,", ","-")
theTime = Replace(theTime," ","-")
Return theTime
End Sub