VB.Net openfiledialog ve savefiledialog kullanımı

vb.net 2008'de openfiledialog ve savefiledialog kullanımı nasıldır?

örneğin bir butona bastığında openfiledialog kutusunun çıkması ve txt uzantılı dosyayı Richtextbox1 adlı richtextbox nesnesine yüklemek için :

sub button1.click()
   dim dosya as string
   OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
   If OpenFileDialog1.ShowDialog = DialogResult.OK Then
      dosya = OpenFileDialog1.FileName
      RichTextBox1.LoadFile(dosya)
  else
     exit sub
end sub

Yine richtextbox taki yazıları txt dosyası olarak kaydetmek için:

sub buton1.click()
   SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
   dim dosya as string
  If SaveFileDialog1.ShowDialog = DialogResult.OK Then
      dosya = SaveFileDialog1.FileName()
      RichTextBox1.SaveFile(dosya)
  else
      exit sub
 end sub

Burada "Openfiledialog1"  openfiledialog nesnesinin adı. Savefiledialog1 de aynı şekilde.
tabi uzantıları istediğin şekilde değiştirebilirsin. Umarım yardımcı olmuşumdur