Para recorrer y leer los archivos de interes utilizar el siguiente codigo:
Dim Archivos As String = ""
Dim Index = 0
Dim LetraA(5) As String
For Each Archivos In Directory.GetFiles(RutaActual, "*.wav",SearchOption.AllDirectories)
     LetraA(Index) = Archivos.Substring(Archivos.LastIndexOf("") + 1).ToString
     Index += 1
Next