Public Sub ImportSourceFiles(sourcePath As String)

Dim file As String

file = Dir(sourcePath)

While (file <> vbNullString)

Application.VBE.ActiveVBProject.VBComponents.Import sourcePath & file

file = Dir

Wend