Private Function getDocumentFromString(ByVal html As String) As _
      mshtml.IHTMLDocument2
        Dim doc As New mshtml.HTMLDocument
        CType(doc, IPersistStreamInit).InitNew()
        Dim htmlPtr As IntPtr = Marshal.StringToHGlobalAuto(html)
        Dim strm As ComTypes.IStream = Nothing
        CreateStreamOnHGlobal(htmlPtr, True, strm)
        CType(doc, IPersistStreamInit).Load(strm)
        While doc.readyState <> "complete"
            Application.DoEvents()
        End While
        Marshal.FreeHGlobal(htmlPtr)
        Return doc
    End Function

    Imports System.Runtime.InteropServices

    Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As _
      IntPtr, ByVal fDeleteOnRelease As Boolean, ByRef ppstm As _
      ComTypes.IStream) As Long
 
    Public Enum HRESULT
        S_OK = 0
        S_FALSE = 1
        E_NOTIMPL = &H80004001
        E_INVALIDARG = &H80070057
        E_NOINTERFACE = &H80004002
        E_FAIL = &H80004005
        E_UNEXPECTED = &H8000FFFF
    End Enum
 
    <ComVisible(True), ComImport(), Guid( _
      "0000010c-0000-0000-C000-000000000046"), _
    InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
    Public Interface IPersist
        Sub GetClassID(ByRef pClassID As Guid)
    End Interface
 
    <ComVisible(True), ComImport(), Guid( _
      "7FD52380-4E07-101B-AE2D-08002B2EC713"), _
    InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
    Public Interface IPersistStreamInit : Inherits IPersist
        Shadows Sub GetClassID(ByRef pClassID As Guid)
        <PreserveSig()> Function IsDirty() As Integer
        <PreserveSig()> Function Load(ByVal pstm As ComTypes.IStream) As HRESULT
        <PreserveSig()> Function Save(ByVal pstm As ComTypes.IStream, _
        <MarshalAs(UnmanagedType.Bool)> ByVal fClearDirty As Boolean) As HRESULT
        <PreserveSig()> Function GetSizeMax(<InAttribute(), Out(), _
        MarshalAs(UnmanagedType.U8)> ByRef pcbSize As Long) As HRESULT
        <PreserveSig()> Function InitNew() As HRESULT
    End Interface

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist