Dim mapIntent As Intent
Dim geoURI As String
Dim Intent1 As Intent
Dim utkoma_N As String
utkoma_N = NumberFormat(N2.Text/60 + N3.Text/3600 , 0,6)
Lab_N.Text = N1.Text & "" & utkoma_N
Dim utkoma_w As String
utkoma_w = NumberFormat(W2.Text/60 + W3.Text/3600 , 0,6)
Lab_w.Text = W1.Text & "" & utkoma_w
lat=Lab_N.Text
lon=Lab_w.Text
URI= "geo:" & lat & ",-" & lon & "?q=" & lat & ",-" & lon & "
Intent1.Initialize(Intent1.ACTION_VIEW,URI)
Intent1.SetComponent("googlemaps")
StartActivity(Intent1)