Мы поместим кнопку, по нажатию на которую будет производится запуск скрипта.
И код напишем для этого:
Private Sub Command1_Click() Dim LineString As String Dim SubName As String Open "c:\1.vb" For Input As #1 Input #1, SubName Do While Not EOF(1) Input #1, LineString strCode = strCode + LineString Loop Close #1 ScriptControl1.AddCode strCode ScriptControl1.Run SubName End Sub
Открываем и читаем файл. Только первой строкой будет название функции, которую вызываем.
Hello Sub Hello() MsgBox "Hello VB" End Sub
Запускаем, смотрим: