Mendapat Seluruh Kode Yang Terdapat Pada CodeModule - Add-Ins

Di bawah merupakan fungsi untuk memperoleh seluruh kode dari baris pertama hingga baris terakhir - Bermanfaat terutama untuk meng-crop kode-kode sample dan memasukannya ke dalam snippet database.

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    MsgBox GetCodeModule("Form1") 
End Sub 
 
Private Function GetCodeModule(s As String) As String 
    Dim cd As CodeModule 
    Set cd = VBInstance.ActiveVBProject.VBComponents(s).CodeModule 
    GetCodeModule = cd.Lines(1, cd.CountOfLines) 
End Function