Desde já agradeço,

 

Preciso executar um bloco de código contido em uma string ex:

   Text1.Text = "Mostra MsgBox"
   Text2.Text = "if Text1.Text = ""Mostra MsgBox"" Then " & _
                      "   Msgbox ""Estou aki"" " & _
                      "End if"

    Gostaria que aki uma função executasse o bloco de código contido em Text2.Text.

 

o text é um objeto, ele nao pode conter bloco de codigo, ele sim pode mostrar o resultade de um processo feito por um bloco de codigo...

Vc pode fazer associações mas eu acho q não valhe a pena...

exemplo

 

text1.text = "Msgbox Exemplo"

 

num botão de comando

 

 

If InStr(1, UCase(Text1), "MSGBOX", vbTextCompare) <> 0 Then
    i = InStr(1, UCase(Text1), "MSGBOX", vbTextCompare)
    MsgBox Mid(Text1, i + Len("MSGBOX"), Len(Text1))
End If

 

 

No caso aparece um msgbox escrito "exemplo". Isso me ocorreu pensando um pouco mas já vou falando q é um negócio complicado de fazer...

 

O q vc quer fazer na verdade? Qual o interesse de passar código VB via texto?

Dê uma procurada por "Microsoft Script Control".

 

Alguns links: