sub mymes 
 msgbox "Hello world"
End Function

sub  execute(s as string)
??????????
end sub

sub   button1_click
  execute(" begin " & chr( 13 ) & " mymes " & chr( 13 ) & " end")
end sub

'VB6
Private Declare Function EbExecuteLine Lib "vba6.dll" ( _
   ByVal StringToExec As Long, ByVal Any1 As Long, _
   ByVal Any2 As Long, ByVal CheckOnly As Long) As Long

Sub execute(s As String)
 EbExecuteLine StrPtr(s),  0 &,  0 &,  0 &
End Sub

Sub button1_click()
 execute "MsgBox ""Hello world"""
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы