Мы поместим кнопку, по нажатию на которую будет производится запуск скрипта.

И код напишем для этого:

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

Запускаем, смотрим: