'Первая переменная это объект, а вторая изменяемого типа
Dim oWord As Dispatch, vBool As Variant
'Word.Application.10 - это PROGID, определяющий имя сервера
'Dispatch - это объект позднего связывания
'попытка связи клиента с сервером
Let oWord = Dispatch In "Word.Application.10"
'Если Word уже был запущен, соответственно установится связь,
'в противном случае объектная переменная останется пустой.
'Если объект пустой значит нужно запустить сервер (ключевым словом New)
If IsFalse IsObject(oWord) Then Let oWord = New Dispatch In "Word.Application.10"
'Значения, передваемые (получаемые) в объект, 
'должны храниться в переменной изменяемого типа
Let vBool = 1
'Изменяется одно из свойств объекта командой Let
'В данном случае устанавливается видимость.
Object Let oWord.Visible = vBool

Function CalcASM(ByVal Value As Long) As Long
' Переслать константу в счётчик цикла
! MOV ECX,10
' Переслать параметр в аккумулятор
! MOV EAX,Value
Label1:
' В цикле к значению прибавляется 1
! INC EAX
' Уменьшить счётчик цикла на 1
! DEC ECX
' Продолжить цикл
! JNZ Label1
' Функция возвращает результат
! MOV Function,EAX
End Function

'Объявить динамический массив и задать его размер
Dim A$(): ReDim A$(1 To 10)
'Присвоить 7-мому элементу строчный литерал
A$(7)="Привет мир"
'Создать строку с таблицей символов
C$ = Chr$(0 To 255)
'Заменить коды строчных символов на коды заглавных
Dim PosU As Integer
For PosU=1 To Asc("Я")-Asc("А")+1
 Mid$(C$,Asc("а")+PosU,1)=Mid$(C$,Asc("А")+PosU,1)
Next PosU
'Команда поиска, здесь:
'From 8 To 11 - искать с символа номер 8 по 11-й в каждом элементе массива;
'Collate C$ - использовать пользовательскую таблицу;
'= "МИР" - Искомое выражение;
'To I& - результат.
Array Scan A$(), From 8 To 11, Collate C$, = "МИР", To I&
MsgBox Str$(I&)