よねＫＥＮさんありがとうございましたｗｗｗ
おかげさまで出来るようになりましたｗｗ

あと一つ分からないのですが名前を付けて保存でHTML形式で保存するにはどうすればいいのでしょうか？

txt形式では、保存できました。
 With Me.SaveFileDialog1
            .Filter = "テキストファイル(*.txt)|*.txt"
            .Title = ""
            If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then
                If .FileName.Substring(.FileName.Length - 4, 4) = ".txt" Then
                    Me.RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
                End If
            End If
        End With

↑これをちょっと変えたら出来ますかね？