[ Συναρτήσεις ] Πρόβλημα σε κώδικα

[Ascinis]

Έχω το εξής πρόβλημα στο VBA.
Μου βγάζει πρόβλημα ότι δεν υπάρχει η MS OFFECE 11.0 OBJECT LIBRARY

Έχω τον παρακάτω κώδικα:

Private Sub AddFile_Click()
' Requires reference to Microsoft Office 12.0 Object Library. '
Dim fDialog As Office.FileDialog
Dim varFile As Variant

' Clear listbox contents. '
Me.FileList.RowSource = "" //χτυπάει εδώ

' Set up the File Dialog. '
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

' Allow user to make multiple selections in dialog box '
.AllowMultiSelect = True

' Set the title of the dialog box. '
.Title = "Please select one or more files"

' Clear out the current filters, and add our own.'
.Filters.Clear
.Filters.Add "Access Databases", "*.MDB"
.Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"

' Show the dialog box. If the .Show method returns True, the '
' user picked at least one file. If the .Show method returns '
' False, the user clicked Cancel. '
If .Show = True Then

'Loop through each file selected and add it to our list box. '
For Each varFile In .SelectedItems
Me.FileList.AddItem varFile // χτυπάει εδώ
Next
End Sub