Sub CurrentLocation_LocationChanged(Longitude As Double, Latitude As Double, Altitude As Double, Accuracy As Float, Bearing As Float, Provider As String, Speed As Float, Time As Long)
StoredLatitude = Latitude
StoredLongitude = Longitude
CurrentLocation.stopMobileListening
End Sub