Public Sub AddGeofence(Callback As Object, geo As Geofence)
Dim gb As JavaObject = CreateGeofenceBuilder(geo)
Dim req As JavaObject = CreateGeofenceRequest(gb)
Dim task As JavaObject = client.RunMethod("addGeofences", Array(req, PendingIntent))
Do While task.RunMethod("isComplete", Null) = False
Sleep(50)
Loop
CallSubDelayed2(Callback, "Geofence_Added", task.RunMethod("isSuccessful", Null))
' Below added by me
Dim exc As JavaObject = task.RunMethod("getException", Null)
Log(exc.RunMethod("getStatusCode", Null))
End Sub