Как воспроизвести звуковой файл

Public Class Form1
    Dim Arr(), w, Files1() As String
    Dim Sp As New System.Media.SoundPlayer
    Dim Th As Threading.Thread
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = "UA4UUU"
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n As Integer, U As Boolean
        For Each q In UCase(TextBox1.Text)
            ReDim Preserve Arr(n)
            Select Case q
                Case "А"
                    q = "A"
                Case "Б"
                    q = "B"
                Case "В"
                    q = "W"
                Case "Г"
                    q = "G"
                Case "Д"
                    q = "D"
                Case "Е"
                    q = "E"
                Case "Ж"
                    q = "V"
                Case "З"
                    q = "Z"
                Case "И"
                    q = "I"
                Case "Й"
                    q = "J"
                Case "К"
                    q = "K"
                Case "Л"
                    q = "L"
                Case "М"
                    q = "M"
                Case "Н"
                    q = "N"
                Case "О"
                    q = "O"
                Case "П"
                    q = "P"
                Case "Р"
                    q = "R"
                Case "С"
                    q = "S"
                Case "Т"
                    q = "T"
                Case "У"
                    q = "U"
                Case "Ф"
                    q = "F"
                Case "Х"
                    q = "H"
                Case "Ц"
                    q = "C"
                Case "Щ"
                    q = "Q"
                Case "Ь"
                    q = "X"
                Case "Ы"
                    q = "Y"
                Case Else
                    q = q
            End Select
            Arr(n) = "Files\" & q & ".wav"
            n += 1
        Next
        Files1 = IO.Directory.GetFiles("Files", "*", IO.SearchOption.TopDirectoryOnly)
        U = (IsContain(Arr, Files1))
        If U = False Then
            MsgBox("Неверный ввод")
            Exit Sub
        End If
        TextBox1.Focus()
        Th = New Threading.Thread(AddressOf WMP_Play)
        Th.Start()
        Button1.Enabled = False
    End Sub
 
    Private Function IsContain(m1 As String(), m2 As String()) As Boolean
        Dim count As Integer = 0
        For Each a In m1
            For Each b In m2
                If a = b Then
                    count += 1
                    Exit For
                End If
            Next
        Next
        Return count = m1.Length
    End Function
 
    Private Sub WMP_Play()
        Try
            For i = 0 To Arr.Count - 1
                '    My.Computer.Audio.Play(Arr(i), AudioPlayMode.WaitToComplete) '1 Вариант
                Sp.SoundLocation = Arr(i) '2 Вариант
                Sp.PlaySync()
            Next
            Invoke(Sub() Timer1.Start())
        Catch ex As Exception
            ' MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Start()
        Th.Abort()
        Sp.Stop()
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' Проверка остановки потока
        w = Th.ThreadState
        If w = "16" Or w = "256" Then
            Button1.Enabled = True
            Timer1.Stop()
        End If
    End Sub
End Class