[VB.NET] sintesi vocale

[musocchi]

vorrei chiedere a qualcuno se mi può spiegare perchè riesco a caricare il file ma non riesco a farlo leggere dalla sintesi vocale

Imports System.IO.File
Imports System.Speech
Public Class Form1
    Dim Parla As New System.Speech.Synthesis.SpeechSynthesizer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim disco As System.IO.File
        Dim leggi As System.IO.StreamReader
        Dim riga As String
        Dim posizione As String
        posizione = TextBox1.Text
        If posizione = "" Then
            MsgBox("non hai caricato il file")
        End If
        leggi = IO.File.OpenText(posizione)
        While leggi.Peek <> -1
            riga = leggi.ReadLine()
            listbox1.Items.Add(riga)
        End While


    End Sub


    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click


    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Parla.Speak(ListBox1.Text)
    End Sub


End Class

sono un neofita di 66 anni abbiate pazienza
piero