Sub wv_OverrideUrl (URL As String) As Boolean
Dim n As String
If URL.IndexOf("tel:") > -1 Then
n = URL.Replace("http://", "")
n = n.Replace(".com/", "")
n = n.Replace(".com", "")
n = n.Replace("tel:","")
n = n.Replace("-","")
If n.Length = 10 Then
Dim I As Intent
I.Initialize(I.ACTION_CALL, "tel:" & n)
StartActivity(I)
End If
Return True
Else
wv.LoadUrl(URL)
Return True
End If
End Sub