Function RunTempProc()
On Error Resume Next
'Dim cmts As VBComponents, cmt As VBComponent
Dim cmts As Object, cmt As Object
Dim strCommand As String
Const conProcName =  "TempProc" 

    strCommand =  "Function "  & conProcName & vbCrLf _
        &  "MsgBox "  "Ура! Заработало-о-о!"  "" & vbCrLf _
        & " End Function"
    
    Set cmts = Application.VBE.ActiveVBProject.VBComponents
    Set cmt = cmts.Add( 1 )
    cmt.CodeModule.AddFromString strCommand
    DoEvents
    Run conProcName
    cmts.Remove cmt
End Function