quizas alguien pueda ayudarme:

tengo in programa en el cual quiero enviar mensaje de voz a telefonos a traves de un modem externo zoom modelo 3095

parte del codigo, lo que necesito es poder enviar en mensaje que guardo en un archivo

With SerialPort1
.PortName = "COM3"
.BaudRate = 115200
.Parity = Parity.None
.StopBits = StopBits.One
.DataBits = 8
.Handshake = Handshake.None
.DtrEnable = True
.RtsEnable = True
'.WriteTimeout = 1000
.NewLine = vbCrLf
End With
SerialPort1.Open()

If SerialPort1.IsOpen Then
Using synth As New SpeechSynthesizer()
Using Stream As New MemoryStream()
synth.SetOutputToWaveStream(Stream)
synth.Speak(txt3.Text)
My.Computer.FileSystem.WriteAllBytes(Application.S tartupPath & "\Test.Wav", Stream.ToArray, False)
synth.SetOutputToNull()
End Using
End Using


With SerialPort1
.DiscardInBuffer()
.Write("AT&F;E0;M2;L2;+GCI=B5" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("At&f M2 L2 E0: " & .ReadExisting)
.Write("ATQ0" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("Atq: " & .ReadExisting)

.Write("AT+FCLASS=8" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("Fclass 8: " & .ReadExisting)

.Write("AT+VGT=255" & vbCrLf) ' Voice Gain Transmit
Thread.Sleep(100)
List.Items.Add("Vgt: " & .ReadExisting)

.Write("AT+VDR=1,6" & vbCrLf) ' Distinctive Ring
Thread.Sleep(100)
List.Items.Add("Vdr: " & .ReadExisting)

.Write("AT+VTD=10" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("Vtd 10: " & .ReadExisting)

.Write("AT+VIT=6" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("Vit 6: " & .ReadExisting)

.Write("AT+VLS=9" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("Vls 1: " & .ReadExisting)
.Write("ATD2163079095;" & vbCrLf)
Thread.Sleep(30000)
List.Items.Add("Atd: " & .ReadExisting)

.Write("AT+VSM=1" & vbCrLf)
Thread.Sleep(100)
List.Items.Add("Vsm 1: " & .ReadExisting)

.Write("AT+VTX" & vbCrLf)
Thread.Sleep(200)
List.Items.Add("Vtx: " & .ReadExisting)

Thread.Sleep(1000)
.Write("ATH" & vbCrLf)
SerialPort1.Close()
End With