Android Question how to use Java Object

#Region  Project Attributes
    #ApplicationLabel: NavAppTest
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
#AdditionalJar: navappclient

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub
Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
ToastMessageShow (GetContext,True)
Dim Factory As JavaObject
Factory.InitializeStatic("com.tomtom.navapp.NavAppClient.Factory")
Dim callback As Object = Factory.CreateEvent("com.tomtom.navapp.ErrorCallback", "NavError", Null)
Dim client As JavaObject = Factory.RunMethod("make", Array(GetContext, callback))
Dim lat = 33, lon = 33 As Double
Dim r1 As JavaObject = client.RunMethod("makeRouteable", Array(lat, lon))
ToastMessageShow (r1,True)
Dim locationManager As JavaObject = client.RunMethod("getLocationManager", Null)
Dim RouteableListener As JavaObject = locationManager.CreateEvent("com.tomtom.navapp.Routeable.Listener", "Listener", Null)
locationManager.RunMethod("getCurrentLocation", Array(RouteableListener))
End Sub   
Sub Listener_Event (MethodName As String, Args() As Object) As Object

Dim routable As JavaObject = Args(0)
Log(routable.RunMethod("getLatitude", Null))

End Sub


Sub NavError_Event (MethodName As String, Args() As Object) As Object
  Log(MethodName)
End Sub
Sub GetBA As JavaObject
  Dim jo As JavaObject
  Dim cls As String = Me
  cls = cls.SubString("class ".Length)
  jo.InitializeStatic(cls)
  Return jo.GetFieldJO("processBA")
End Sub

Sub GetContext As JavaObject
  Return GetBA.GetField("context")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
 
End Sub

Sub btnTrip_Click   
' planTrip, this is the java code from the test programm
'
'void planTrip(Routeable destination,
'              Trip.PlanListener PlanListener)
'
'    Plan a trip from the current location To a destination. This call will switch the focus To the NavApp when the trip-planning Is started. The passed In listener Is only active Until the result of the call has been returned. Once a result has been returned the listener won't receive any more callbacks (but can be re-used).
'
'    Parameters:
'        destination - The Routeable destination To plan To.
'        PlanListener - Trip.PlanListener To receive information about the result of the trip planning.
'    Throws:
'        java.lang.IllegalArgumentException - If any argument Is Null.

    'here my code begins
    'lat and lon are hard coded for tests (EPS)
    Dim lat As Double = 47.4642
    Dim lon As Double = 9.03826
    'init API and error callback
    Dim Factory As JavaObject
    Factory.InitializeStatic("com.tomtom.navapp.NavAppClient.Factory")
    Dim callback As Object = Factory.CreateEvent("com.tomtom.navapp.ErrorCallback", "NavError", Null)
    Dim client As JavaObject = Factory.RunMethod("make", Array(GetContext, callback))
    Dim RouteableDestination As JavaObject = client.RunMethod("makeRouteable", Array(lat, lon))
    Dim TripManager As JavaObject = client.RunMethod("getTripManager",Null)
    Dim PlanListener As JavaObject = TripManager.CreateEvent("com.tomtom.navapp.Trip.PlanListener", "ListenerTrip", Null)
'    These calls all throw an exception as noted belowthe call
'    TripManager.RunMethod("planTrip",Array(PlanListener))
'    java.lang.RuntimeException: Method: planTrip not matched.
'    TripManager.RunMethod("planTrip",Array(lat,lon))
'    java.lang.RuntimeException: Method: planTrip not matched.
'    TripManager.RunMethod("planTrip",Null)
'    TripManager.RunMethod("planTrip",PlanListener)
'  java.lang.IllegalArgumentException: argument 2 should have type java.lang.Object[], got $Proxy8
'    TripManager.RunMethod("planTrip",Array(RouteableDestination))
'  java.lang.RuntimeException: Method: planTrip not matched.
    TripManager.RunMethod("planTrip",RouteableDestination)
    'java.lang.ClassCastException: $Proxy7 cannot be cast to java.lang.Object[]

End Sub
Sub ListenerTrip_Event (MethodName As String, Args() As Object) As Object
    Msgbox("TripListener"&MethodName,"")
End Sub

TripManager.RunMethod("planTrip",Array(RouteableDestination, PlanListener))

Sub ListenerGeo_Event (MethodName As String, Args() As Object) As Object
'passes back a list of coordinates of an adress string
'this is the java code:
'    Private routeable.ListListener mGeoCodeRouteableListener = new routeable.ListListener() {
'        @Override
'        Public void onRoutable(List<routeable> routeableList) {
'            Log.d(TAG, "> onRoutable received a List with size["+routeableList.size()+"]");
'            mButtonGeoCode.setEnabled(True);
'            CharSequence previousText = mTextViewGeoCodeResult.getText();
'            mTextViewGeoCodeResult.setText(createAddressString(previousText, routeableList));
'        }
'    };
    Dim routeable As JavaObject = Args(0)
    routeable.RunMethod("onRoutable",Null) 'this triggers the exception
    lat = routeable.RunMethod("getLatitude", Null) 'not sure if this would work on a list
    lon = routeable.RunMethod("getLongitude",Null)
    EditLat.Text = lat
    EditLon.Text = lon
End Sub

Sub ListenerGeo_Event (MethodName As String, Args() As Object) As Object

    Dim routeable As JavaObject = Args(0)
    Dim Adressstring As String
    Dim Searchfor As String = "getLongitude"
    Dim Startindex As Int
    Dim EndIndex As Int
'    let's parse the f..cking latitude and longitude as the proposed method is a bit temperamentful
'    luckily Basic 4 Apps has wonderfull string functions
    Adressstring = routeable 'the routable is nothing else than a complex string
    If Adressstring.Length > 14 Then    'if it is shorter then there are no coordinates
        Startindex = Adressstring.IndexOf(Searchfor)
        Startindex = Startindex + 14
        EndIndex = Startindex+ 7
        lon = Adressstring.SubString2(Startindex,EndIndex)

        Searchfor = "getLatitude"
        Startindex = Adressstring.IndexOf(Searchfor)
        Startindex = Startindex +13
        EndIndex = Startindex + 7
        lat = Adressstring.SubString2(Startindex,EndIndex)
       
        EditLat.Text = lat
        EditLon.Text = lon
    Else
        Msgbox ("Adress invalid","")
    End    If   
End Sub