Tilføje check boks istedet for list boks

Hej

Forneden har jeg lavet en list boks med filer fra et bibliotek, men jeg vil gerne ha det lavet så det er check bokse..men det kan jeg ikke rigtig få til at fungere

Håber der er nogen som kan hjælpe.

Takker så meget

Dim dir, folder, files
dir = "e:\WorkSpace\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(dir)
Set files = folder.files


MyListBox.RowSourceType = "Value List"
For Each file In files
If Right(file, 4) = "xlsx" Then
    MyListBox.AddItem (file.Name)
End If
Next