Import a module file from C:\Drive using a macro?

I finally got this code from
chiello

This code for is when you save one of your macros in C:| Drive or whatever drive
it will pick up your code and put it in the current VBA Prodject workbook That is open.
Then ones I have colored is the ones you need to modified to make it work.
1) Run Macro with destination Workbook CLOSED
2) When the Open window appears, you can browse your file system and select the file you want


Sub CopyModulesFromA()

Dim wbFileName As Variant
Dim FS As Office.FileSearch
Dim vaFileName As Variant

wbFileName = Application.GetOpenFilename("XLS Files (*.xls), *.xls")
If wbFileName <> False Then
Application.ScreenUpdating = False
Workbooks.Open Filename:=wbFileName
Set FS = Application.FileSearch
With FS
'clear old search criteria
.NewSearch
'directory to search
.LookIn = "C:"
'look for .bas (Module) files
.Filename = "Inventory.bas"
'carry out search
.Execute
For Each vaFileName In .FoundFiles
'MsgBox "About to import module " & vaFileName
ActiveWorkbook.VBProject.VBComponents.Import Filename:=vaFileName
Next vaFileName
End With
Application.ScreenUpdating = True
End If
End Sub