[RESOLVED] how to extract plain text from rtf blocks

[maged]

hi all

how can i extract text from rtf block,
i am using this code

Private function rtftotext(rtfstring as string) as string
  Dim rtf1 As New System.Windows.Forms.RichTextBox
  rtf1.Rtf = rtfstring 
  Dim txt1 As New TextBox
  return rtf1.Text
end function

the problem with this code is it loses all enter breaks ( new line breaks).

if comes back correctly as one paragraph. anybody knows how can i keep the new lines while extracting the text ???

thank you