enregistrer le contenu d'un RichTextBox qui est dans un mdiFille

Bonjour =E0 tous :)
Voil=E0 j'apprend le vb.net. J'ai programm=E9 avant en VB6 mais il y a
tr=E8s longtemps et je suis compl=E8tement =E0 l'ouest maintenant. Il est
temps pour moi de m'y remettre ;-)

Pour apprendre j'essaye de faire un editeur de texte qui je ferais
=E9voluer petit =E0 petit tout au long de mon apprentissage.
Mais je suis bloqu=E9 sur un pb depuis un p'tit moment.
J'ai un MDIParent et un MDIFille avec un contr=F4le RichTextBox que
j'appelerais RTB. Quand je fais Fichier / Nouveau, une nouvelle
instance de mon MDIFille va se cr=E9er.
Je n'arrive pas =E0 enregister le contenue de mon RTB en rtf ou en txt.
Je sais pourtant qu'il faut que je r=E9cup=E8re la fen=EAtre active chose
faite. Mais le pb est que j'enregistre dans mon fichier le nom de ma
fen=EAtre et pas son contenu :-) et en plus il ne mets pas l'extension
automatiquement...
Malgr=E9 mes recherches sur google et sur ce NG, je n'ai malheureusement
pas trouv=E9 de r=E9ponses =E0 ma solution. J'ai trouv=E9 ceci mais j'ai la
version Beta 2 de VS2005 et j'arrive pas =E0 le faire fonctionner.

Mon code pour enregister un fichier :
-------------------------------
Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuSave.Click
Dim activeChild As Form =3D Me.ActiveMdiChild
Dim sfd As New SaveFileDialog()

Try
With sfd
.AddExtension =3D False
.CheckPathExists =3D True
.CreatePrompt =3D False
.OverwritePrompt =3D True
.ValidateNames =3D True
.ShowHelp =3D True
.DefaultExt =3D "rtf"
.FileName =3D filename
.Filter =3D "RTF files (*.rtf) |*.rtf|" & _
"All files|*.*"
.FilterIndex =3D 1
If .ShowDialog() =3D Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(.FileName,
activeChild.Text, False)
End If
End With
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text)
End Try

End Sub
------------------------------------
Merci par avance =E0 vous tous ;-)