Load Listbox Specific File Types

I found this code by Will Riley



Private Sub UserForm_Initialize()
Dim fileList() As String
Dim fName As String
Dim fPath As String
Dim I As Integer
'define the directory to be searched for files
fPath = "C:Will"

Would like to change


fName = Dir(fPath & "*.xls")

to load graphic files, .jpg, .jpeg, .bmp, .gif, instead of excel files.

It works if changed to .jpg only but as soon as I try multiple file types it does not work.