mp3 endung automatisch

AN ALLE EXPERTEN !
ich habe einen code der mir nur mp3 dateien einlesen soll.
dann kommt die inputbox fragt welche endung.
ich möchte aber nicht gefragt werden,es soll automatisch eingelesen
werden,weil es klar ist,das nur mp3 endungen eingelesen werden sollen.
ich habe das momentan deaktiviert,aber jetzt werden eben alle endungen 
eingelesen und das möchte ich unterbinden.

FRAGE:wie kann ich ohne,das die inputbox eingeblendet wird,trotzdem nur mp3 endungen bekommen??

If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
     'sPattern = InputBox(prompt:="Dateifilter:", Default:="*.mp3")
     sFile = Dir(sPath & sPattern)
     Do Until sFile = ""
     iRow = iRow + 1
     ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, 1), _
     Address:=sPath & sFile, TextToDisplay:=sFile
     sFile = Dir()
    Loop

DANKE
IVAN