Al menos podrias poner un link al tema de donde venia (si es que no fue para revivirlo) para asi todos podamos entender de que se trataba

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: CARENI.A.1.b. Temas prohibidos.
Para mantener un control sobre el contenido del foro, así como de su uso y legalidad, ciertos temas deben ser controlados, temas con este contenido podrían ser borrados o cerrados.
Estos temas no pueden ser discutidos en el foro en absoluto, y la acción de hablar de ellos continuamente podría conllevar a una de las sanciones especificadas en la sección III.C, dichos temas son:
- Phishing.
- Pornografía (aún en el caso que sea legal no está permitida en el foro)
- Discriminación.
- Asuntos personales de terceros.
- Actividades criminales
- Solicitar Cracks y/o Serials
- Hacking no ético
- Juegos y aplicaciones piratas*.
El motivo de que estos temas no puedan ser tratados en el foro, es debido a que no promovemos su difusión y/o al ser tratados, se estarían violando los derechos y la dignidad de otras personas.
Para el uso de datos de terceros, referirse a la sección II.A.2.
(*) Sólo se permiten postear música, series de TV o películas en el subforo habilitado para ello. Cualquier otro tipo de descargas detectado fuera de ese subforo será eliminado.
Cita de: Test your IPv6
Your readiness scores
10/10 for your IPv4 stability and readiness, when publishers offer both IPv4 and IPv6
0/10 for your IPv6 stability and readiness, when publishers are forced to go IPv6 only
Cita de: google
¿Tu conexión está preparada para el Internet del futuro?
Sí, parece que tu conexión está preparada.
Puedes establecer conexión correctamente con sitios que utilizan IPv6.
Option Explicit
'Private Doc As DOMDocument
Private Doc As Object
Private Sub Form_Load()
'Set Doc = New DOMDocument
Set Doc = CreateObject("Msxml2.DOMDocument.3.0") 'or "Microsoft.XMLDOM"
Doc.resolveExternals = False
Doc.async = False
Doc.validateOnParse = False
' ChrW$(8364) = Simbolo del euro €
' ChrW$(&H8FCE) = Simbolo de Asia del este
If Doc.LoadXML("<?xml version=""1.0"" encoding=""UTF-8""?><symbol>" & ChrW$(8364) & ChrW$(&H8FCE) & "</symbol>") Then
Debug.Print Doc.xml
Else
Debug.Print Doc.parseError
End If
End Sub
<?xml version="1.0"?>
<symbol>€?</symbol>