使用vb.net tts转换文本为wav时,下面的源代码如何写??????????

使用vb.net tts转换文本为wav时,下面的源代码如何写??????????
Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
        Dim myStream As System.IO.Stream
        Sa1.InitialDirectory = "C:\"             '=====================位置
        Sa1.Filter = "All files (*.*)|*.*|wav files (*.wav)|*.wav" '====格式
        Sa1.FilterIndex = 2
        Sa1.RestoreDirectory = True
        Sa1.Title = "保存"
        If Sa1.ShowDialog() = DialogResult.OK Then
            myStream = Sa1.OpenFile()
            If Not (myStream Is Nothing) Then
            '??????如?????何?????写?????代??????码??????????????????????????
            End If
        End If
    End Sub
请各位老大指导指导,谢谢啦??? http://download.csdn.net/detail/veron_04/3942879

补充：VB ,  基础类