Sub ShowPos()
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, "geo:0,0?q=45.5063434,9.1742423(my+work)" )
'I've try both setComponent
Intent1.SetComponent("googlemaps")
'Intent1.SetComponent("com.google.android.apps.maps")
StartActivity(Intent1)
End Sub