Dim locCur As String = "-33.4513,-70.6653"
Dim locDes As String = "-33.41169, -70.55000"
Dim Url As String = "http://maps.google.com/maps?" & "saddr=" & locCur & "&daddr=" & locDes
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW, Url)
intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(intent1)