Android Question Erel's Geofence and updating a label text value with some data.

Sub Process_Globals
    Dim result As String
    result = "0"
End Sub

Public Sub Geofence_Enter (Id As String)
    Log("Enter: " & Id)
    Dim n As Notification
    n.Initialize
    n.Icon = "icon"
    n.SetInfo("Enter: " & Id, "Enter", Main)
    n.Notify(1)
    ToastMessageShow("Enter: " & Id, True)
    result = Id
    StartActivity(Main) 'show the main activity again
End Sub

Public Sub Geofence_Exit (Id As String)
    Log("Exit: " & Id)
    ToastMessageShow("Exit: " & Id, True)
    result = Id
    Dim n As Notification
    n.Initialize
    n.Icon = "icon"
    n.SetInfo("Exit: " & Id, "Exit", Main)
    n.Notify(2)
    StartActivity(Main) 'show the main activity again
End Sub

Sub Globals
    Dim lblGeo As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    lblGeo.Visible = True
    AddGeofence
End Sub

Sub AddGeofence
    rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
'TEST LOCATION 1
        Dim geo As Geofence
        geo.Initialize
        geo.Id = "1"
        geo.Center.Initialize2(xx.392218, y.208352) 'THUIS!
        geo.RadiusMeters = 100
        geo.ExpirationMs = DateTime.TicksPerDay 'expire after one day
        CallSubDelayed3(GeofenceService, "AddGeofence", Me, geo)
        Wait For Geofence_Added (Success As Boolean)
        Log("Geofence added: " & Success)
'TEST LOCATION 2
        Dim geo As Geofence
        geo.Initialize
        geo.Id = "2"
        geo.Center.Initialize2(xx.390509, y.208845)
        geo.RadiusMeters = 100
        geo.ExpirationMs = DateTime.TicksPerDay 'expire after one day
        CallSubDelayed3(GeofenceService, "AddGeofence", Me, geo)
        Wait For Geofence_Added (Success As Boolean)
        Log("Geofence added: " & Success)
'TEST LOCATION 3   
        Dim geo As Geofence
        geo.Initialize
        geo.Id = "3"
        geo.Center.Initialize2(xx.391098, y.212085)
        geo.RadiusMeters = 100
        geo.ExpirationMs = DateTime.TicksPerDay 'expire after one day
        CallSubDelayed3(GeofenceService, "AddGeofence", Me, geo)
        Wait For Geofence_Added (Success As Boolean)
        Log("Geofence added: " & Success)
    End If
End Sub

Sub Activity_Resume
    If Starter.result = "0" Then
        lblGeo.Text = "No data"
    End If
    If Starter.result = "1" Then
        lblGeo.Text = "location 1"
    End If
    If Starter.result = "2" Then
        lblGeo.Text = "location 2"
    End If
    If Starter.result = "3" Then
        lblGeo.Text = "location 3"
    End If
End Sub