Cómo convertir el código fuente de la página web obtenido a utf-8 en vb

Función de declaración privada WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) Como Long

Función de declaración privada MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByteStr As Long, ByVal cchMultiByteStr As Long, ByVal cchMultiByteStr As Long ) ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const CP_UTF8 = 65001

'Conversión de caracteres VB a UTF8

Función pública UnicodeToUtf8(ByVal UCS As String) As Byte()

Dim lLength As Long

DimlBufferSize As Long

Dim lResult As Long

Dim abUTF8() As Byte

lLength = Len(UCS)

Si lLength = 0 Entonces Salir de la Función

lBufferSize = lLength * 3 + 1< / p>

ReDim abUTF8( lBufferSize - 1)