Dim code = "msgbox(1)"Functions.remove("a123")Functions.complie()Functions.Add("a123" ,code)Functions.Complie()
Functions.Execute("a123")