Sub Read(ByVal RPath As String)
        If RPath <> "" Then
            Dim WordApp As New Word.ApplicationClass
            Dim filepath = Server.MapPath("images\Resume\") & RPath
            Dim File As Object = filepath
            Dim nullobj As Object = System.Reflection.Missing.Value
 
            Dim doc As Word.Document = WordApp.Documents.Open(File, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj)
 
            Dim doc1 As Word.Document = WordApp.ActiveDocument
 
            Dim m_Content As String = doc1.Content.Text
 
            txtResume.Text = m_Content
 
        doc.Close(nullobj, nullobj, nullobj)
        End If
    End Sub
 

<system.web>
 
          <identity impersonate="true"/>