How to run a string as a command in VBA

Question

I have this simple VBA code below, and I don\'t know why is not working.

Sub Run()
    test = \"MsgBox\" & \"\"\"\" & \"Job Done!\" & \"\"\"\"
           


        

Answer 1

You may be tempted by adding your own string "Executer":

Sub StringExecute(s As String)
    Dim vbComp As Object
    Set vbComp = ThisWorkbook.VBProject.VBComponents.Add(1)
    vbComp.CodeModule.AddFromString "Sub foo()" & vbCrLf & s & vbCrLf & "End Sub"
    Application.Run vbComp.name & ".foo"
    ThisWorkbook.VBProject.VBComponents.Remove vbComp
End Sub

Sub Testing()
    StringExecute "MsgBox" & """" & "Job Done!" & """"
End Sub