Public Function Transfer() As HtmlDocument
        Dim sbResult As New StringBuilder
        Dim ctTransfer As New XslCompiledTransform
        Dim htmlReturn As HtmlDocument
 
        Using swHelper As New StringWriter(sbResult), wbContent As New _
          WebBrowser
            ctTransfer.Load("blabla.xslt", Nothing, New XmlUrlResolver)
            ctTransfer.Transform("blublub.xml", Nothing, swHelper)
            wbContent.DocumentText = sbResult.ToString
            htmlReturn = wbContent.Document
            If IsNothing(wbContent.Document) Then MsgBox("hi") '<-- wird nicht 
            ' ausgegeben
        End Using
 
        Return htmlReturn
    End Function

        Dim y As HtmlDocument = x.Transfer()
        If IsNothing(y.Body) Then MsgBox("hi") '<-- wird ausgegeben
        MsgBox(y.Body.innerHtml) '<-- deshalb kommt es hier zu einer exception, 
        ' das objekt sei nicht instanziert