private Sub ShowMap
Try
Dim urlMap As String="https://www.google.com/maps/search/"
Dim su As StringUtils
Dim Address As String
Address=SelectedClientAddress
Address=Address.Replace(CRLF," ")
Address=su.EncodeUrl(Address,"UTF-8")
urlMap=urlMap & Address
Dim App As Application
If App.CanOpenURL(urlMap) Then
App.OpenURL(urlMap)
Else
XUI.MsgboxAsync("Address cannot be shown on a map","HCMS")
End If
Catch
Log("ShowMap " & LastException.description)
End Try
End Sub