Если вы используете MediaElement
для воспроизведения аудио, вы можете обработать событие MediaEnded
и вызвать метод Play
в обработчике
Private Sub MediaElement_MediaEnded(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim m As MediaElement = CType(sender, MediaElement)
m.Play()
End Sub