Visual Basic - Programar en tiempo de ejecución...

Hola a todos y gracias de antemano por cualquier ayuda que me puedan prestar.

Tengo un textbox (Text1) y un command (cmd1). ahora, lo que yo necesito es que cuando haga click en el cmd1, se ejecute el código tal y como lo he escrito en el text1.
Aver si así me explico mejor:

Private Sub cmd1_Click()
On Error Resume Next

AQUI QUIERO QUE ESTÉ LO QUE YO HAYA ESCRITO EN EL "Text1", QUE SERÁ UN CÓDIGO

End Sub

Por favor ayudenme. Cualquier duda aqui en el foro o a mi correo.
Salu2. *n4pZt3r*

Si lo que quieres hacer es similar a la macrosustitución de los lenguajes xBase (&) no se puede exactamente igual.

Puedes utilizar el ScriptControl, definiendo las variables y los objetos que quieres tratar.

En http://msdn.microsoft.com/library/en-us/dnexpvb/html/usingscriptcontrolmethods.asp tienes documentación del control.

También puedes usar la API EbExecuteLine para ejecutar sentencias ecritas en un textbox, en tiempo de ejecución:

Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
' Crea un Text1 en el Form1
Private Sub Command1_Click()
dim stCode as string, code as long
stCode="form1.text1.visible=false"
Code = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(False)) = 0
End Sub