Public Sub VBComponents_Add_______TRYYYYYYYYYY0()

Dim vbc As VBIDE.VBComponent
Set vbc = VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)

Dim cm As VBIDE.CodeModule
Set cm = vbc.CodeModule

                            With cm
.InsertLines .CountOfLines +  1 , "public function abcd"
.InsertLines .CountOfLines +  1 , "msgbox ""function~abcd"""
.InsertLines .CountOfLines +  1 , "End function"
Debug.Print "InsertLines"
                            End With

Call SysCmd( 504 ,  16483 )
Debug.Print "SysCmd(504, 16483)"

On Error Resume Next
Eval "abcd()"
End Sub