Sub Modul_Import_Etmek()
Dim evnVBA As VBIDE.VBProject, evnModul As VBIDE.VBComponent
Dim Dosyam As String, Modulum As String
    Set evnVBA = ThisWorkbook.VBProject
    Set evnVBA = ActiveWorkbook.VBProject
    Dosyam = "c:\makrom.txt"
    Modulum = "Module1"
    On Error GoTo hata
        With evnVBA.VBComponents
            .Import Dosyam
        End With
            MsgBox "Modul transfer edildi.", vbInformation, "Www.ExcelVBA.Net"
            Exit Sub
hata:
    MsgBox "Bir hata oluştu  "
End Sub

C:\ içerisindeki makrom.txt dosyasına kodlamanızı aşağıdaki kodlama gibi yazın.
Attribute tanımı ile component ismi mutlaka olmalı.

Attribute VB_Name = "Module1"
Sub deneme()
' deneme için yazılmış bir kodlamadır
End Sub
alıntıdır...(kaynak:excelvba.net)