Txt dosyasında yazan kodları başka bir dosyaya ekleme

[pNouma]

Kıymetli Hocalarım merhaba,
Bir text dosyasına yazılmış kodları bilgisayarda kayıtlı başka bir dosyayı açıp, açılan bu dosyaya aşağıdaki gibi kod eklemeyi planlıyorum.

myText = myPath & "\Test.txt"

burada yazan kodları aşağıdaki kodlara nasıl entegre edebiliriz?

yardımlarınız için şimdiden teşekkürler,

Public Sub AddNewModule()
Dim WB As Workbook
Dim myWB As Workbook
Dim myPath As String
Dim myFile As String

  Dim proj As VBIDE.VBProject
  Dim comp As VBIDE.VBComponent

Set WB = ThisWorkbook
myPath = WB.Path

myFile = myPath & "\TestModule.xlsm"

Set myWB = Workbooks.Open(Filename:=myFile)

 ' -  -  -  -  -  -  -  -  -  -  -  -   -  -  -  -  -  -
      Set proj = myWB.VBProject
      Set comp = proj.VBComponents.Add(vbext_ct_StdModule)
      comp.Name = "MyNewModule"
    
      Set codeMod = comp.CodeModule
    
      With codeMod
        lineNum = .CountOfLines + 1
        .InsertLines lineNum, "Public Sub ANewSub()"
        lineNum = lineNum + 1
        .InsertLines lineNum, "  MsgBox " & """" & "I added a module!" & """"
        lineNum = lineNum + 1
        .InsertLines lineNum, "End Sub"
      End With

 ' -  -  -  -  -  -  -  -  -  -  -  -   -  -  -  -  -  -
myWB.Save

myWB.Close

Set myWB = Nothing

End Sub

iyi Çalışmalar.

 

[haliliyas]

Set objFSO = CreateObject("scripting.filesystemobject")
        myText = myPath & "\Test.txt"
        Set objts = objFSO.OpenTextFile(myText)
        txtIcerik = objts.readall
Dz = Split(txtIcerik,vbNewLine)

kodu ile veriler diziye aktarılarak yaptırılabilir