Per eseguire codice puoi usare lo ScriptControl e i suoi metodi
AddCode
Run
In particolare, per quello che vuoi fare, l'esempio e' questo (anche se ho usato una costante invece del contenuto di una textbox)
codice:Dim sc As ScriptControl Set sc = New ScriptControl sc.Language = "VBScript" sc.AddCode "Sub Main : MsgBox ""ciao"" : End Sub" sc.Run "Main" Set sc = Nothing