Hola, he modificado esta función. La he probado y funciona bien:
Código:
'________________________________________________________________
Function ValidURL(cURL)
'Devuelve una URL válida
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
ValidURL = cURL
If InStr(1, cURL, "http://") = 0 Then ValidURL = "http://" & cURL
ValidURL = "<a href='" & ValidURL & "' target='_blank'>" & ValidURL & "</a>"
End Function
Un saludote. ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>