Dynamic Code Generate & Execute@VBA

dynamicExecute.bas

Option Explicit

Sub Main()
    Dim tempModule As Object: Set tempModule = GenerateSub
    
    Application.Run "SubMethod"
    
    ThisWorkbook.VBProject.VBComponents.Remove tempModule
End Sub

Function GenerateSub() As VBComponent
    Dim code As String
    code = "Sub SubMethod" & vbNewLine & _
                vbTab & "MsgBox """ & Time & """" & vbNewLine & _
                "End Sub"
    
    Dim tempModule As VBComponent: Set temp = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
    Call tempModule.CodeModule.DeleteLines(1, temp.CodeModule.CountOfLines)
    Call tempModule.CodeModule.AddFromString(code)
    
    Set GenerateSub = tempModule
End Function