With Me.SaveFileDialog1
            .Filter = "HTMLファイル(*.html)|*.html"
            .Title = ""
            If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then
                If .FileName.Substring(.FileName.Length - 4, 4) = ".html" Then
                    Me.RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
                End If
            End If
        End With

にしていましたがダイアログは出るのですが、保存を押しても保存されていません。