有人帮我解释vb.net的一段代码吗？！！！！

[funhere]

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
SaveFileDialog1.ShowDialog()
savefile()
End Sub

Sub savefile()
SaveFileDialog1.Title = "文件保存"
SaveFileDialog1.Filter = "Rich Textfile|*.rch" & "Text.file|*.txt"

If SaveFileDialog1.ShowDialog = DialogResult.OK Then
If Trim(SaveFileDialog1.FileName) <> "" Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName)

End If

End If


End Sub

[funhere]

还有，就是我怎么调用 savefile() 这个自定义函数啊？！

[funhere]

没人帮忙吗？！我抄代码很累的！！

[Montaque]

有一点问题
改为
SaveFileDialog1.Filter = "Rich Textfile|*.rch|" & "Text.file|*.txt"
^^
调用的时候，就这样调用，比如在一个按钮中调用：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

savafile()

End Sub

关于这段代码：
SaveFileDialog1.Title = "文件保存" ‘设置对话框的ttle
SaveFileDialog1.Filter = "Rich Textfile|*.rch" & "Text.file|*.txt" ’设置后缀名

If SaveFileDialog1.ShowDialog = DialogResult.OK Then
If Trim(SaveFileDialog1.FileName) <> "" Then ‘如果选择文件
RichTextBox1.SaveFile(SaveFileDialog1.FileName)

End If

End If

[funhere]

谢谢谢谢，谢谢Montaque(Rainman) ，你真是大好人，我学会送花的方法一定给你送大红花！！！！