Public Function GetTextFromRtf(ByVal rtf As String)
        Dim oRtf As RichTextBox = New RichTextBox
        Try
            oRtf.Rtf = rtf
            Return oRtf.Text
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            oRtf.Dispose()
            oRtf = Nothing
        End Try
    End Function
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim DEIN_RTF_TEXT As String = New IO.StreamReader("PATH").ReadToEnd
        Dim s As String = Me.GetTextFromRtf(DEIN_RTF_TEXT)
    End Sub