listing all mp3 files in a directory to a listbox in vb

hello guy am having a little problem:
my goal is to get all file with an mp3 extension listed on a listbox in vb
in that case the location of that directory in c:\Users\%Username%\music

I have this code but it's not working:

Dim di As New IO.DirectoryInfo("C:\Users\%userprofile%\Music")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
       Dim dra As IO.FileInfo
       
        For Each dra In diar1
       ListBox1.Items.Add(dra)
       Next

please help me

Tags: Visual Basic