Código
If sRet <> "" Then SaveLog 'chorraso de html y sus comillas "<table borderColor=" & Chr(34) & "#000000" & Chr(34) & "cellSpacing=" & Chr(34) & "0" & Chr(34) & "width=" & Chr(34) & "550" & Chr(34) & " border=" & Chr(34) & "1" & Chr(34) & "><tr bgColor=" & Chr(34) & "#3399ff" & Chr(34) & "><td borderColor=" & Chr(34) & "#000000" & Chr(34) & " align=" & Chr(34) & "center" & Chr(34) & " colSpan=" & Chr(34) & "2" & Chr(34) & "><B>" & Now & "</B></td></tr><tr><td class=" & Chr(34) & "desc" & Chr(34) & " width=" & Chr(34) & "114" & Chr(34) & "> Ventana: </td> <td class=" & Chr(34) & "Noticia" & Chr(34) & ">" & GetWindowText(lParam) & "</td>" & vbCrLf & sRet & vbCrLf & "</tr><tr><td class=" & Chr(34) & "desc" & Chr(34) & "></tr><tr> <td class=" & Chr(34) & "desc" & Chr(34) & ">Descripción:</td>" & Chr(34) & String(100, "<br>") & vbCrLf