<code><font color=green>' ScriptControl initialisieren</font>
Private Sub Form_Load()
  ScriptControl1.Modules.Add "Form1", Form1
End Sub
 
<font color=green>' Textdatei auslesen und Anweisungen ausführen</font>
Private Sub Lese_Textdatei()
  Dim sFilename As String
  Dim sLine As String
  Dim F As Integer
 
  sFilename = "DeineTextdatei.txt"
 
  F = FreeFile
  Open sFilename For Input As #F
  While Not Eof(F)
    <font color=green>' Anweisungs-Zeile einlesen</font>
    Line Input #F, sLine
 
    <font color=green>' Anweisung über das ScriptControl ausführen</font>
    ScriptControl1.Modules("Form1").ExecuteStatement sLine
  Wend
  Close #F
End Sub</code>