Dim opScripting As New Script Control
 
With opScripting
    .AddCode "Sub " & Text1.Name & "(dummy)" & vbcrlf & Text1.Text & vbcrlf & _
      "End Sub"
    .Run Text1.Name, ""
End With
<pre><code>in text1 muss VB-Script-Code stehen, mit nativen VB-Code klappt das _
  nich
VB-Script hat so ein paar eigenheiten, z.b. muss und darf man bei Variablen nur _
schreiben:
 
<pre><code>Dim variablenname

Private variablenname (As ...)
Public variablenname (As...)